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ABSTRACT 

This  thesis  presents  an  interactive  computer  model 
designed  to  examine  the  Surface  Warfare  Officer  (SWO)  Career 
Path.  The  model  called  SWOPATH  is  designed  to  provide  the 
manpower  managers  with  a  fast,  user  friendly  analytical 
tool.  The  model  is  derived  from  a  network  representation  of 
a  SWO  career  path,  the  rows  representing  the  billet 
activities,  the  columns  the  tours  of  duty.  Career  paths  are 
represented  by  arcs  connecting  the  nodes  of  the  network. 
The  model  allows  the  manager  to  display  current  data  and 
evaluate  the  effect  of  altering  career  paths  by  changing 
assignment  tour  lengths,  transfer  percentages  from 
assignments  to  assignments,  and  accessions  to  the  SWO 
community.  The  model's  speed  allows  the  manager  to  evaluate 
several  scenarios,  providing  an  ability  to  quickly  forecast 
results  of  policy  changes  on  the  SWO  community. 
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I.   INTRODUCTION 

A.   BACKGROUND 

The   Unrestricted  Line  Officer  Career  Planning  Guidebook 

describes  the  Surface  Warfare  Community  as  follows: 

The  Surface  Warfare  Community  is  composed  of  officers 
who  are  qualified  in  the  surface  warfare  speciality,  who 
man  the  surface  ships  of  the  Navy  and  whose  goal  is  to 
command  those  ships.  The  Surface  Warfare  Officer  (SWO) 
must,  through  a  progression  of  competitive  assignments, 
learn  the  fundamentals  of  engineering,  weapons  systems, 
and  operational  tactics.   tRef.   1:  p.   23] 

In   order  to  obtain  these  qualifications,  and  attain  the 

experience  and  knowledge  necessary   to   reach   the   goal   of 

command   at  sea,  each  surface  warfare  officer  proceeds  along 

a   sequence   of   various   assignments   over   a  career.   This 

sequence  of  assignments  is  usually   described   as   a   career 

path.   There  are  many  factors  involved  in  detailing  officers 

to   their   assignments,  resulting   in   many  different  career 

paths.   However  it  is  possible  to  classify  career  paths  into 

a  small  number'  of  groups  within  which  all  paths  exhibit   the 

same   basic  features.   In  an  NPS  thesis  entitled  "The  Effect 

of  PCS  Policy   Changes   on   Surface   Warfare   Officer   (SWO) 

Career   Development"   by   R.   H.   HOWE,  [Ref.   21,  a  network 

representation  of  SWO  career  paths  is  developed  and  used  for 

categorizing  them.   The  network  is  arranged  in  a  rectangular 

array  of   nodes,   where   the   rows   stand   for   the   general 

activities   to   which  officers  are  assigned,  and  the  columns 

represent  the   tour   sequences,   starting   with   the   first, 

through  the  twelfth  tour,  in  the  career  of  a  surface  warfare 

officer.    Each  node  in  the  network  represents  an  assignment 

of  a  surface  warfare  officer,  specified  by  an  activity  and  a 

tour  number. 
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B.  PURPOSE 

The  purpose  of  this  thesis  is  to  use  this  "network 
representation"  of  the  surface  warfare  officer's  career  path 
in  developing  a  computer  supported  tool  which  would 
simulate,  or  model  the  movement  or  flow  of  surface  warfare 
officers  within  this  network.  This  decision  support  tool 
would  assist  the  analyst  in  evaluating  the  impact  of  changes 
in  policy  that  affect  the  surface  warfare  officer's  career 
path.  By  using  this  model  an  analyst  can  address  "what  if" 
type  questions  about  tour  length  changes  or  changes  to  the 
career  paths  leading  up  to  major  command.  For  instance  the 
model  might  be  used  to  answer  the  question:  "If  we  increased 
the  tour  at  department  head  school  to  one  year  vice  the 
current  six  months,  what  impact  would  that  have  in 
maintaining  a  sufficient  number  of  officers  available  to 
fill  executive  officer  <X0)  billets  in  future  years?"  To 
answer  this  question  now,  the  analyst  would  need  to  figure 
out  how  many  XO  billets  were  needed  to  be  filled,  then 
calculate  the  effect  of  changing  the  number  of  officers 
leaving  department  head  school  to  go  on  to  becoming  an  XO 
via  several  In  between  tours.  The  analyst  would  need  to 
determine  how  many  officers  were  transferred  to  where,  and 
perform  several  hand  calculations  to  determine  whether  all 
the  XO  billets  would  be  filled.  With  the  speed  of  a 
computer  model  the  program  allows  the  analyst  to  perform  the 
same  calculations  much  faster  and  with  greater  assurance  of 
accuracy.  The  time  saved  could  now  be  used  to  evaluate  many 
more  scenarios  than  time  would  permit  previously. 

C.  THE  MODEL 

The  model  is  designed  to  provide  a  simulation  of  the 
flows  through  the  network,  representing  the  surface  warfare 
officers  career  paths,  dependent  on  user  input.  The  model 
is  interactive  with  the  user,  and  provides  a  menu  of  choices 
for  the  user  to  select  from,   when   proceeding   through   the 
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model.  The  model  is  written  as  a  series  of  procedures,  each 
of  which  are  called  upon  by  the  user  to  carry  out  various 
functions  within  the  model.  These  procedures  are  invisible 
to  the  user  while  he  is  operating  the  model.  Complete 
listings  of  the  procedures  are  provided  in  Appendix  A 
through  N. 

The  model  is  written  with  both  a  new  and  an  experienced 
user  in  mind.  Wherever  there  is  an  opportunity  for  the  user 
to  make  a  mistake,  there  is  an  error  trapping  procedure  that 
simply  provides  the  user  with  a  displayed  warning, 
indicating  that  an  invalid  response  was  made,  and  the  user 
is  returned  to  the  exact  spot  in  the  program  where  he  made 
the  error. 

The  user  is  also  provided  the  opportunity  to  choose 
whether  to  use  default  data  provided  with  the  model  to 
initialize  the  variables  in  the  network,  or  to  use  files 
that  the  user  may  have  created  when  previously  operating  the 
model . 

The  model  provides  for  a  display  of  data  in  several 
formats.  For  example,  the  number  of  officers  at  a 
particular  tour  for  all  activities  allows  the  user  to 
review  the  data  and  evaluate  the  results  of  the  simulation 
run  to  be  explained  below.  By  utilizing  the  MPr intScreen" 
function  (if  available)  on  the  user's  micro  computer,  the 
user  can  make  hard  copies  of  the  displays  for  future 
re  ference . 

The  model  simulates  the  flow  of  officers  through  the 
network  for  a  time  period  chosen  by  the  user.  The  model 
advances  officers  in  time  units  of  quarters,  i.e.  it  moves 
officers  from  assignments  to  assignments  each  quarter. 
Selecting  to  run  the  simulation,  for  example,  for  two  years 
means  that  the  model  will  simulate  flows  for  eight  quarters. 

If  the  analyst  were  to  use  the  model  to  answer  the 
question  posed  above,  he  would  change  the  tour  length  of  the 
assignments  that  related  to  department  head  school,  and  then 
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establish  a  limit  for  the  number  of  XO  billets  which  if 
violated  would  cause  a  warning  message  to  be  displayed.  For 
example,  if  the  analyst  is  interested  in  having  at  least  400 
XO's,  then  the  analyst  would  want  to  know  when  there  were 
less  than  400  XO's  available.  The  analyst  chooses  the 
number  of  years  to  run  the  model,  and  observes  the  results. 
If  in  fact  the  change  to  the  tour  length  of  department  head 
school  reduces  the  number  of  officers  available  for  XO 
billets  at  some  future  time,  then  when  the  number  of  XO's 
drops  below  400  the  model  will  display  a  warning  message 
that  will  indicate  how  long  the  simulation  ran  before  the 
parameter  was  violated  and  how  many  officers  currently  are 
present.  The  analyst  can  then  decide  whether  to  make  such  a 
change  in  the  tour  length.  If  the  change  is  still  desired, 
the  analyst  will  need  to  evaluate  the  effect  of  other 
changes  to  the  normal  career  path,  e.g.  decrease  some  other 
tour  length  after  department  head  school,  or  increase  the 
number  of  officers  being  transferred  to  XO  billets,  or  some 
other  combination  of  changes,  to  insure  that  once  the  tour 
length  of  department  head  school  has  been  altered,  the  XO 
billets  will  still  be  filled.  The  analyst  would  be  able  to 
utilize  the  data  display  capabilities  of  the  model  to 
evaluate  his  alternatives. 

This  model  was  designed  with  the  increased  availability 
of  micro  computers  in  mind.  Written  and  compiled  using 
Turbo  Pascal  Version  3.0  (Trademark  of  Borland 
International),  this  model  comes  in  two  versions.  One 
version  is  written  to  be  used  on  any  IBM  PC  compatible  micro 
computer,  and  another  version  for  the  Heath/Zenith  Models 
100/110/120  micro  computers.  Both  versions  of  the  model  are 
written  for  color  monitors  but  will  run  on  black  and  white 
monitors  without  any  changes  by  the  user.  Because  of  the 
increasing  availability  of  micro  computers  both  In  the 
workplace  and  In  the  home,  the  portability  of  this  model 
should  provide  for  increased   usage,   without   the   inherent 
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problems  of  waiting  for  terminal  availability. 

In  summary,  the  model  with  data  chosen  by  the  user* 
simulates  the  flow  of  officers  through  a  typical  career  path 
for  any  number  of  years  ahead.  The  results  can  be  displayed 
at  the  user's  options.  Data/parameters  can  be  changed  by 
the  user  and  another  simulation  can  be  run  at  the  user's 
option.  Also  at  the  user's  option,  data  created  during  the 
simulation,  or  data/parameters  that  have  been  changed  by  the 
user,  can  be  saved  to  files  named  by  the  user,  for  future 
use.  The  model  is  highly  user  friendly,  with  short  warnings 
when  invalid  responses  have  been  chosen.  All  data  can  be 
displayed  in  usable  formats.  The  model  thus  provides  the 
user  with  virtually  an  unlimited  number  of  options  to 
evaluate  policy  changes  affecting  the  surface  warfare 
officer's  career  path. 
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II.   ANALYTICAL  DESCRIPTION  OF  THE  MODEL 

The  model  described  in  this  thesis  consists  of  a  network 
of  nodes  arranged  in  rows  and  columns,  using  either  the 
default  data  provided  with  the  model,  or  data  created  by  the 
user  as  he  operates  the  model.  The  network's  rows  represent 
eight  activities,  such  as  sea  duty  or  duty  in  Washington  DC, 
to  which  a  surface  warfare  officer  might  be  ordered.  Each 
of  the  network's  columns  represent  one  of  twelve  possible 
tours  of  duty.  As  shown  in  Figure  2.1,  this  creates  an 
eight  by  twelve  network  of  nodes.  Each  node  in  the  network 
represents  an  assignment  where  a  surface  warfare  officer 
might  be  sent,  specified  by  an  activity  and  a  tour  number  at 
which  that  assignment  occurs.  For  example,  the  node  H3A"  in 
Figure  2.1,  would  denote  an  assignment  occurring  during  the 
third  tour  of  duty,  at  activity  "A".  Each  node  also  has  a 
number  attached  representing  the  number  of  officers  so 
assigned.  Each  node  or  assignment  has  a  specific  tour 
length  in  quarters.  From  each  assignment,  there  are  arcs  or 
transfer  paths  to  any  one  of  the  assignments  in  the  next 
column.  For  example,  node  "3A"  would  have  eight  possible 
transfer  paths,  to  nodes  "4A"  through  "4H".  To  each 
transfer  path  there  is  a  percentage  attached  which 
represents  the  percentage  of  officers  transferred  from  the 
source  node  at  an  end  of  the  arc  to  the  destination  node  at 
the  other  end  of  the  arc.  Each  assignment  also  has  a  high 
and  a  low  limit  constraining  the  number  of  officers  so 
assigned.  For  example,  the  node  "3A"  might  have  a  high 
limit  of  150  officers,  and  a  low  limit  of  50  officers.  The 
program  will  indicate  to  the  user  when  a  limit  is  violated. 
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A.   THE  MODEL'S  PARTS 
1  .   Act  i v  i t  ies 

In  this  network,  the  rows  are  representing  generic 
activities  to  which  a  surface  warfare  officer  may  be 
assigned  during  his  career.  These  activities  are 
categorized  as  follows: 

a.  Professional   Training 

Student  billets  in  either  the  SWO  Department 
Head  or  SWO  (Basic)  courses  longer  than  20  weeks. 

b.  Professional   Education 

Student  billets  at  a  postgraduate  school  or  a 
war  or  staff  college  of  duration  longer  than  20  weeks. 

c.  Washington   DC  Tour 

Shore  duty  billets  in  the  Washington 
metropolitan  area  not  meeting  any  of  the  criteria  in  (a)  or 
(b)  above. 

d.  Shore   (CONUS) 

Shore  duty  billets  within  the  continental  United 
States  not  meeting  any  of  the  criteria  in  (a),  (b),  or  (c) 
above . 

e.  Fleet  Unit 

Ship's  company  sea  duty  billets. 

f.  Afloat  Staff 

Afloat  staff  sea  duty  billets. 

g.  Shore  (OUTUS) 

Non-CONUS  shore  duty  billets, 
h.   Separation 

Loss  of  officers  to  the  SWO  community.  The  main 
reasons  are  resignation  (voluntary  and  involuntary), 
retirement,  and  lateral  transfer  to  another  officer 
community.  This  last  activity,  SEPARATION,  is  included  in 
order  to  provide  an  "assignment"  to  account  for  attrition  of 
off  icers . 
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2.  Tours 

Each  duty  station  along  the  SWO  career  path  that  is 
longer  than  20  weeks  in  duration  is  called  a  tour  of  duty. 
The  model  identifies  these  as  tours  starting  with  the  first 
tour  and  progressing  through  the  twelfth  tour.  The  tours 
are  represented  by  the  columns  in  the  network. 

3.  Billet  Nodes/Assianments 

Officers  are  detailed  or  ordered  to  specific 
assignments.  These  assignments  can  be  described  by 
specifying  an  activity  and  the  number  of  the  tour.  For 
example,  department  head  school  during  an  officer's  third 
tour  of  duty,  would  be  defined  in  the  model  as  "Third  Tour 
Professional  Training."  Assignments  are  represented  by  the 
nodes  in  the  network.  Accessions  to  the  surface  warfare 
community  are  accounted  for  by  the  number  of  officers 
assigned  to  a  specific  node,  namely  the  node  "First  Tour 
Fleet"  which  is  where  all  officers  enter  the  surface  warfare 
community  from  all  sources,  the  U.S.  Naval  Academy,  Officer 
Candidate  School  (OCS),  Navy  Reserve  Officer  Training 
Courses  (NROTC),  etc. 

4.  Toyr Lengths 

Each  assignment,  depending  on  the  activity  and  when 
the  assignment  occurs  during  the  officer's  career  path,  is 
for  a  specific  length  of  time.  The  model  defines  these  as 
"Tour  Lengths"  and  allows  for  each  possible  assignment  in 
the  network  to  be  up  to  16  quarters  < 48  months)  long,  in 
units  of  quarters.  For  example,  department  head  school 
during  an  officer's  third  tour  is  two  quarters  (6  months) 
long. 

5.  Arcs/Transfer  Paths 

From  each  assignment,  with  the  exception  of  the 
activity,  "SEPARATION",  the  officer  proceeds  to  one  of  eight 
possible  assignments  in  the  next  column  of  the  network.  For 
example,  from  the  "Third  Tour  Professional  Training",  the 
officer   may   proceed  to  another  professional  training,  or  a 
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professional  education,  or  a  tour  in  Washington,  or  shore 
duty  (CONUS),  or  a  fleet  unit,  or  an  afloat  staff,  or  shore 
duty  (OUTUS),  or  possibly  separation.  The  number  of 
officers  proceeding  to  each  of  the  next  assignments  may  be 
expressed  as  a  percentage  of  the  total  number  of  officers 
leaving  their  last  assignments.  These  percentages  will  be 
called  "Transfer  Path  Percentages"  in  the  model,  and  range 
from  0  to  100,  depending  on  how  many  officers  can  be 
expected  to  be  ordered  from  one  particular  assignment  to  a 
specific  next  assignment  during  each  quarter.  Each  billet 
node  or  assignment  in  the  network  (except  those  in  the  last 
row),  has  eight  possible  transfer  paths  associated  with  it. 
Some  transfer  path  percentages  assigned  to  some  arcs  are  0, 
meaning  that  no  one  Is  transferred  along  that  transfer  path, 
and  some  may  be  100,  meaning  that  all  officers  are 
transferred  along  that  path. 

6.  High anj Low LlMtS 

Certain  assignments  are  limited  in  the  number  of 
officers  that  can  be  assigned  to  them  at  any  one  time.  For 
example,  department  head  school  may  be  physically  limited  to 
approximately  150  seats.  The  model  provides  for  a 
"user-defined"  high  limit  which  can  be  established  for  any 
assignment  in  the  network.  A  warning  is  provided  to  the 
user,  when  that  limit  has  been  exceeded.  Conversely,  the 
low  limits,  also  "user-defined",  can  be  used  to  establish 
whether  a  billet  node  has  enough  officers  assigned.  The 
model  once  again  will  provide  a  warning  to  the  user  when  the 
number  of  officers  falls  below  that  low  limit.  Specific 
instructions  for  establishing  or  changing  these  high  and  low 
limits  will  be  explained  later. 

7.  Data   Files 

There  are  five  empirical  or  default  data  files, 
a.   Nodes 

This    file   contains   the   number   of   officers 
assigned  to  each  specific  assignment  in   the   model.    Since 
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each  assignment  can  vary  In  tour  length, the  number  of 
officers  is  further  broken  down  by  the  number  of  quarters 
they  have  left  to  serve  at  that  specific  assignment.  For 
example,  for  department  head  school  during  the  third  tour 
there  may  be  75  officers  with  one  quarter  left  and  75 
officers  with  two  quarters  left  to  serve  before  being 
transferred  elsewhere. 

b.  Arcs 

The  transfer  percentages  for  each  assignment  in 
the  network  are  contained  in  this  file.  For  example,  from 
department  head  school  during  the  third  tour,  everyone 
proceeds  to  a  fleet  unit.  Thus,  the  transfer  percentages 
from  "Third  Tour  Professional  Training"  to  "Fourth  Tour 
Fleet  Unit"  will  be  100%  and  all  other  transfer  percentages 
from  "Third  Tour  Professional  Training"  will  be  0%. 

c.  Length 

Each  assignment  can  range  from  0  to  16  quarters 
long.  The  specific  tour  lengths  for  each  assign  ment  are 
contained  in  this  file.  For  example,  for  depart  ment  head 
school  during  the  third  tour  the  data  file  may  list  "Third 
Tour  Professional  Training"  tour  length  as  2,  meaning  two 
quarters  (6  months). 

d.  High  Limits 

Each  assignment  can  have  a  "user-  defined"  high 
limit.  The  default  high  limits  are  contained  in  this  file. 
For  most  assignments  the  default  high  limit  is  9999. 

e .  Low  Lim  i  ts 

Each  assignment  can  have  a  "user-  defined"  low 
limit.  The  default  low  limits  are  contained  in  this  file. 
For  all  assignments  the  default  low  limit  is  0. 

B.   THE  MODEL'S  PROCEDURES 

The    model   is   capable   of   carrying   out  five   major 

procedures:  initialization  of  data;   display   of  data;   the 

calculation  of  the  numbers  of  officers  occupying  assignments 
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in   future   years;   changing   data   values;  and  saving  data. 
These  procedures  are  described  below. 

1.  Initialization 

The  model  variables'  initial  values  are  contained  in 
files  on  the  disk.  The  values  for  the  number  of  officers  in 
each  assignment  by  quarters  left,  the  transfer  path 
percentages,  the  tour  lengths,  and  the  high  and  low  limits 
are  contained  in  formatted  data  files  that  are  stored  on  the 
program  disk.  The  user  may  also  create  his  own  data  files 
and  these  will  also  be  formatted  and  stored  on  the  disk 
under  file  names  chosen  by  the  user.  When  the  model  is 
started  up,  the  user  must  choose  whether  to  initialize  the 
variables  with  the  default  values,  or  another  set  of  values 
he  had  previously  saved.  Each  of  the  data  types  i.e. 
nodes,  arcs,  lengths,  high  and  low  limits,  are  formatted 
differently.  The  program  prevents  the  user  from  selecting 
an  improperly  formatted  data  set  during  operation  of  the 
model.  It  also  properly  formats  data  that  the  user  decides 
to  save.  Although  the  user  could  employ  other  means  to  read 
these  data  files,  he  should  not  do  so,  in  order  to  avoid 
accidentally  changing  the  format  by  unwittingly  inserting 
hidden  characters,  and  thus  rendering  the  data  file  useless 
to  the  program. 

2.  Displays 

The  model  offers  several  different  types  of  data 
displays,  each  designed  to  highlight  a  specific  type  of 
data. 

a.   An   Activity   v.s.  All  Tours 

This    display   shows   the   number   of   officers 
assigned  to  a  generic  activity  for  each  tour.   For  example, 

FIRST    SECOND     THIRD  

WASH  DC    14       34         23 
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b.  A   Tour   v.s.  All  Activities 

This  display  shows  the  number  of  officers  during 
a  specific  tour  for  all  activities.   For  example, 

EIGHTH  TOUR 
PROFESSIONAL  TRAINING       0 
PROFESSIONAL  EDUCATION       6 
WASHINGTON  DC  25 

c.  Transfer   Paths   From   a  Billet 

This  display  shows  the  percentages  and  the 
number  of  officers  that  would  be  transferred  from  a  specific 
assignment  to  all  possible  next  assignments.   For  example, 

/  Fourth  Tour  Prof  Trng 
/     0%  or  0  officers 
FROM         / 

Third  Tour  /  Fourth  Tour  Prof  Educ 
Prof  Trng  \  Oh  or  0  officers 
45  officers   \ 

\   Fourth  Tour  Fleet 

\   100%  or  45  officers 


etc.  . 


d.   Transfer  Paths  To  a  Billet 

This  display  shows  the  percentages  and  the 
number  of  officers  that  would  be  transferred  from  all 
possible  previous  tour  assignments  to  a  specific  assignment. 
The   percentages   listed   are   the   percentages   of  officers 
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transferred  out  of   all   the   officers   present   In   various 
assignments  of  the  preceding  tour.   For  example* 

FROM  Fourth  Tour  Prof  Trng   -\ 
15%  or  3  officers  \ 

\ 

FROM   Fourth  Tour  Prof  Educ   >  TO 

10%  or  4  officers  /         Fifth  Tour 

/  Shore  (CONUS) 
FROM   Fourth   Tour   Fleet    -/ 
100%   or   45    officers      /  52  officers 

etc.  . 

e.   Billet   Nodes   by  Quarters  Left 

This  display  shows  the  number  of  officers 
assigned  to  a  specific  assignment  broken  down  by  the  number 
of  quarters  they  have  left  to  serve  In  that  assignment.  For 
example* 

Third  Tour  Prof  Trng 
Officers  Assigned: 

75  with   1  quarter   left 
75  with   2  quarters  left 

0  with   3  quarters  left 

e tc. . . . 

3.   Calculations 

The   model   manipulates   all  data  by  quarter  and  all 
data  Is   also   by   quarter.    For   example,   the   number   of 
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officers  stationed  at  a  specific  assignment  are  identified 
by  how  many  quarters  they  have  left  to  serve  at  that 
assignment.  The  transfer  percentages  are  the  percentage  of 
officers  in  their  last  quarter  at  their  current  assignment 
to  be  transferred  each  quarter  to  their  next  assignment. 
The  maximum  tour  length  allowed  in  the  model  is  4  years  or 
16  quarters.  When  the  model  asks  for  how  many  years  and  how 
many  quarters  to  run  the  model,  the  program  accepts  the 
answer  and  converts  it  into  quarters,  then  uses  that  number 
to  determine  the  number  of  iterations  the  model  should  make. 
Upon  completing  the  calculations,  the  number  of  quarters  is 
converted  back  into  number  of  years  and  quarters  and 
displayed  that  way.  Each  quarter  the  performs  a  series  of 
calculat  ions. 

a.  First,  for  every  assignment  in  the  network,  the 
numbers  of  officers  with  exactly  one  quarter  left  in  their 
current  assignments  are  placed  in  a  temporary  file. 

b.  Second,  for  every  assignment  in  the  network,  all 
officers  are  shifted  down  to  one  fewer  quarter.  For 
example,  if  In  an  assignment  that  is  four  quarters  long 
there  were  15  officers  with  three  quarters  left,  and  10 
officers  with  four  quarters  left,  after  the  shift  there  will 
be  15  officers  with  two  quarters  left,  and  10  officers  with 
three  quarters  left. 

c.  Third,  the  numbers  of  officers  placed  in  the 
temporary  file  are  multiplied  by  the  appropriate  transfer 
percentages  and  the  resultant  numbers  are  placed  in  the  next 
assignments,  each  with  the  total  number  of  quarters  left 
appropriate  for  that  assignment.  For  example,  if  there  were 
10  officers  placed  in  the  temporary  file  for  the  assignment 
"Third  Tour  Professional  Training",  the  number  10  is 
multiplied  by  the  transfer  percentages  for  "Third  Tour 
Professional  Training",  to  determine  how  many  of  the  10 
officers  will  be  transferred  along  each  transfer  path  to 
their   next   assignments.    If   the  transfer  percentages  for 
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"Third  Tour  Professional  Training"  are  20%  to  "Fourth  Tour 
Washington  DC",  70%  to  "Fourth  Tour  Fleet",  and  10%  to 
"Afloat  Staff",  then  2  officers  will  be  transferred  to 
"Fourth  Tour  Washington  DC",  7  to  "Fourth  Tour  Fleet",  and  I 
to  "Afloat  Staff."  If  the  tour  length  of  "Fourth  Tour 
Washington  DC"  is  3  years  (12  quarters),  the  2  officers 
transferred  to  that  assignment  will  have  12  quarters  left. 
If  the  tour  length  for  the  "Fourth  Tour  Fleet"  is  2  years  2 
quarters,  the  7  officers  transferred  to  that  assignment  will 
have  10  quarters  left,  and  so  on,  for  the  other  assignments. 

d.  Fourth,  each  quarter  the  program  calculates  two 
totals.  The  first  total  is  the  assignment  total,  i.e.  the 
number  of  officers  currently  assigned  to  each  particular 
assignment.  The  model  adds  up  all  officers  assigned  regard- 
less of  their  quarters  left  in  the  assignment.  The  second 
total  is  the  number  of  officers  currently  assigned  to  their 
"Xth"  tour.  This  procedure  sums  up  all  officers  currently 
serving  their  fourth  tour,  for  example,  in  all  activities. 

e.  Lastly,  each  quarter  the  program  matches  the 
assignment  totals  with  the  high  and  low  limits.  If  either 
limit  has  been  violated,  the  program  provides  a  warning  to 
the  user  (to  be  fully  explained  later). 

4.   Default  Data  Files 

There  are  five  different  types  of  data  sets  used  by 
the  program.  Each  one  is  "formatted"  or  "coded" 
specifically  for  its  own  application,  and  there  is  no  cross 
use  of  data  sets.  The  program  allows  the  user  to  designate 
his  own  data  files  and  store  data  of  his  choice.  These 
files  are  also  specifically  "formatted"  for  the  data  type 
and  stored  by  the  program.  The  five  types  of  data  sets  used 
are  : 

a.   Nodes   Data 

The  default  data  file  is  called  "Nodes"  and 
contains  the  number  of  officers  assigned  to  each  assignment, 
by  quarters  left.   If  the   user   uses   a   directory   program 
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(outside  the  model)  to  determine  which  files  are  on  the 
program  disk,  all  data  files  that  contain  nodes  data  are 
listed  as  having  the  filetype  "nod".  This  filetype  will  not 
display  during  operation  of  the  program,  and  the  user  should 
not  declare  it  when  naming  files  in  the  program.  The 
program  will  automatically  assign  "nod"  as  the  filetype  on 
all  nodes  type  data  files. 

b.  Arcs   Data 

The  default  data  file  is  called  "Arcs"  and 
contains  the  transfer  percentage  for  each  transfer  path  in 
the  network.  If  the  user  uses  a  directory  program  to 
determine  which  files  are  on  the  program  disk,  all  data 
files  that  contain  arcs  data  are  listed  as  having  filetype 
"ard" .  This  filetype  will  not  display  during  operation  of 
the  program,  and  the  user  should  not  declare  it  when  naming 
files  in  the  program.  The  program  will  automatically  assign 
"ard"  as  the  filetype  on  all  arcs  type  data  files. 

c.  Length  Data 

The  default  data  file  is  "Length"  and  contains 
the  tour  length,  in  quarters,  for  every  assignment  in  the 
network.  If  the  user  uses  a  directory  program  to  determine 
which  files  are  on  the  program  disk,  all  data  files  that 
contain  length  type  data  are  listed  as  having  filetype 
"led".  This  filetype  will  not  display  during  operation  of 
the  program,  and  the  user  should  not  declare  it  when  naming 
files  in  the  program.  The  program  will  automatically  assign 
"led"  as  the  filetype  on  all  length  type  data  files. 

d.  High   Limit   Data 

The  default  data  file  is  called  "Hilimit"  and 
contains  the  upper  constraints  for  the  number  of  officers  in 
each  billet.  If  the  user  uses  a  directory  program  to 
determine  which  files  are  on  the  program  disk,  all  data 
files  that  contain  Hilimit  data  are  listed  as  having 
filetype  "hid".  This  filetype  will  not  display  during 
operation  of  the  program,  and  the  user  should  not  declare  it 
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when  naming  files  in  the  program.  The  program  will 
automatically  assign  "hid"  as  the  filetype  on  all  high  limit 
type  data  files. 

e.   Low   Limit   Data 

The  default  data  file  is  called  "Lolimit"  and 
contains  the  lower  constraints  for  the  number  of  officers  in 
each  billet.  If  the  user  uses  a  directory  program  to 
determine  which  files  are  on  the  program  disk,  all  data 
files  that  contain  low  limit  data  are  listed  as  having 
filetype  "lod".  This  filetype  will  not  display  during 
operation  of  the  program,  and  the  user  should  not  declare  it 
when  naming  files  in  the  program.  The  program  will 
automatically  assign  "lod"  as  the  filetype  on  all  low  limit 
type  data  files. 

5.   Saving   the   Model's   Data 

When  the  user  has  completed  a  session  with  the 
model,  he  may  desire  to  save  the  data  currently  in  the  model 
network,  for  instance,  the  current  number  of  officers  in 
each  assignment,  the  current  transfer  path  percentages,  the 
current  assignment  tour  lengths,  or  the  current  high  or  low 
limits.  The  model  is  capable  of  properly  formatting  each 
data  type  and  saving  it  in  one  of  three  ways: 

a.  The  user  will  be  provided  the  opportunity  to 
save  each  data  type  in  a  new  file  named  by  the  user  in  which 
case  the  model  will  create  a  file  using  the  name  made  up  by 
the  user,  on  the  program  disk,  and  transfer  the  current 
values  of  that  data  type  into  the  new  file.  The  data  will 
automatically  be  properly  formatted,  thus  allowing  the  user 
to  recall  this  data  for  use  in  the  future.  For  example,  the 
user  may  wish  to  save  the  high  limit  data  as  a  new  file 
called  "Newhigh,"  in  which  case  the  model  will  automatically 
assign  that  file  the  filetype  "hid". 

b.  The  user  will  be  provided  the  opportunity  to 
save  each  data  type  to  a  file  already  existing  on  the  disk. 
The  model  will  warn  the  user  that  saving  data  to  an  existing 
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file,  will  overwrite/destroy  the  previously  saved  data.  For 
example,  when  the  user  chooses  to  save  the  high  limit  data 
to  a  file,  the  display  will  show  the  names  of  all  the  files 
on  the  disk  that  currently  contain  high  limit  data.  If  the 
user  had  previously  created  a  file  called  "Newhigh",  then 
this  file  would  be  listed.  If  the  user  now  chose  to  save 
the  current  data  to  a  file  also  called  "Newhigh",  then  the 
old  data  in  the  file  "Newhigh"  would  be 
overwritten/destroyed,  and  the  data  file  "Newhigh"  would  now 
contain  the  current  high  limit  data  only. 

c.  The  user  will  be  also  be  provided  the 
opportunity  to  replace  the  data  In  the  default  data  file 
with  the  current  data.  The  model  will  warn  the  user  that 
replacing  the  default  data  file  with  the  current  data  Is  a 
permanent  step.  The  old  default  data  is  then  lost,  and  when 
the  program  initializes  with  the  default  data,  it  will  be 
with  the  "new"  default  data. 
6 .   Changing   Data 

The  model  Is  also  capable  of  changing  the  values  of 
the  various  types  of  data  the  model  uses,  while  the  user  Is 
operating  the  model.  To  do  so  the  user  selects  the  option 
to  change  data  from  a  menu,  and  by  following  the  prompts  can 
change  the  following  data: 

a.   The  Number  of  Accessions 

The  number  of  accessions  into  the  surface 
warfare  officer  community.  This  is  a  single  number  that 
indicates  the  number  of  officers  that  have  entered  the  Navy 
and  have  embarked  on  a  career  In  the  surface  community. 
Since  all  prospective  surface  warfare  officers  begin  their 
surface  warfare  careers  at  the  Surface  Warfare  School 
(Basic),  followed  by  their  first  tour  at  sea,  the  model  uses 
the  assignment  "First  Tour  Fleet",  to  account  for  all 
accessions  to  the  surface  warfare  officer  community.  This 
number  remains  the  same  every  quarter  (unless  changed  by  the 
user),   and  new  officers  to  the  community  only  enter  through 
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this  assignment.  The  user  can  evaluate  the  impact  of  a 
greater  or  lesser  number  of  accessions  on  the  surface 
warfare  officers  career  path  by  changing  the  number  of 
accessions  and  using  the  model  to  make  further  computations. 

b.  The   Transfer   Path  Percentages 

The  user  may  decide  to  evaluate  the  impact  of 
changes  to  the  path  surface  warfare  officers  take  over  the 
course  of  their  career.  One  change  might  be  to  increase  the 
number  of  officers  that  are  ordered  to  professional 
education  during  their  eighth  tour.  By  changing  the 
transfer  path  percentages  from  all  activities  in  the  seventh 
tour  to  increase  the  number  of  officers  from  those 
assignments  to  "Eighth  Tour  Professional  Education",  and 
then  operating  the  model,  the  user  can  evaluate  the  effect 
that  changes  in  the  transfer  paths  percentages  have  on  how 
many  officers  are  ultimately  transferred  to  the  assignment 
"Eighth  Tour  Professional  Education",  and  what  impact  this 
change  has  on  tours  nine  through  twelve.  The  Increased 
number  of  officers  being  assigned  to  professional  education 
in  their  eighth  tour  may  decrease  the  officers  available  to 
be  assigned  to  other  eighth  tour  activities,  and  cause  a  gap 
of  unfilled  assignments  in  tours  nine  through  twelve. 

c.  Tour   Lengths 

The  user  has  the  ability  to  alter  the  tour 
length  of  any  assignment  In  the  network.  The  user  may 
choose  to  lengthen  (up  to  a  maximum  of  16  quarters),  or 
shorten  a  tour  (down  to  a  minimum  of  0  quarters).  If  the 
user  chooses  to  lengthen  the  tour  from  4  quarters,  to  say,  6 
quarters,  the  model  assumes  that  those  officers  currently 
serving  In  the  assignment  will  not  have  their  tours  extended 
to  meet  the  new  tour  length  but  Instead  will  leave  as 
previously  scheduled.  Similarly,  if  the  user  chooses  to 
shorten  the  tour,  those  officers  currently  serving  in  the 
assignment  will  continue  to  stay  at  that  assignment  until 
they  have  completed  their  original  schedule. 
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d.  High  Limit   Numbers 

The  user  can  change  the  high  limit  numbers  for 
any  assignment.  This  allows  the  user  to  set  up  a  high  limit 
constraint,  run  the  model  for  "X"  years  and  determine  if  the 
high  limit  constraint  is  ever  violated.  For  example,  in 
department  head  school,  the  physical  seating  capacity  for 
students  may  be  150  seats.  Of  those  students  attending 
department  head  school,  some  are  in  their  third  tours  and 
some  in  their  fourth,  e.g.  80%  in  their  third  tour,  and  20% 
in  their  fourth  tour.  So  120  seats  can  be  occupied  by  third 
tour  officers  and  30  seats  can  be  occupied  by  fourth  tour 
officers.  These  numbers  may  be  used  as  the  high  limits  that 
are  imposed  on  the  assignments,  "Third  Tour  Professional 
Training"  (120)  and  "Fourth  Tour  Professional  Training" 
(30).  If  while  running  the  model  these  high  limits  are 
exceeded,  the  model  warns  the  user,  and  provides  him  with 
options  (explained  in  detail  later)  from  which  to  choose. 

e.  Low   Limit  Data 

The  user  can  also  change  the  low  limit  numbers 
for  any  assignment  in  the  network.  Using  the  previous 
example  of  the  department  head  school,  the  user  may  wish  to 
make  sure  that  at  least  110  officers  on  their  third  tour  and 
15  officers  on  the  fourth  tour,  are  currently  assigned  to 
department  head  school.  The  user  should  change  the  low 
limit  data  for  the  "Third  Tour  Professional  Training"  to  110 
and  "Fourth  Tour  Professional  Training"  to  15.  When  the 
model  makes  the  calculations  and  finds  that  the  number  of 
officers  in  the  assignment  "Third  Tour  Professional 
Training"  falls  below  the  low  limit  (110)  the  model  warns 
the  user  and  provides  him  with  options  (explained  In  detail 
later)  from  which  to  choose. 

7 .   Reinitializing  the  Data 

The  user  is  also  provided  the  opportunity  to 
reinitialize  some  or  all  of  the  data  types,  i.e.  nodes, 
arcs,   length,   hilirait,   and   lolimit.    For  example,  after 
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running  the  model  for  three  years  and  not  violating  a  low 
limit  for  "Third  Tour  Professional  Training"  (110),  the  user 
may  wish  to  change  the  low  limit  to  115  officers,  and  run 
the  model  again  for  three  years,  to  see  if  this  new  low 
limit  will  be  violated.  Without  reinitializing  the  model's 
data,  the  model  would  commence  running  with  three  years 
calculations  already  completed,  and  the  result  would  be  a 
total  of  six  years  calculations  into  the  future.  Instead, 
the  user  may  desire  to  reinitialize  the  nodes  data,  and  any 
other  data  type  of  his  choosing,  and  then  run  the  model  for 
three  years.  One  word  of  warning  is  necessary  here.  If  the 
user  chose  to  change  the  low  limit  from  110  to  115  officers, 
and  then  decided  to  reinitialize  the  low  limit  data,  the  net 
result  would  be  to  destroy  the  change  the  user  had  made  to 
the  low  limit  data,  because  the  low  limit  for  "Third  Tour 
Professional  Training"  would  also  be  reset  to  the  value 
found  in  the  initial  low  limit  data  file.  For  that  reason, 
the  user  is  provided  the  opportunity  to  reinitialize 
separately  each  of  the  following  data  types:  the  nodes  data, 
the  arcs  data,  the  length  data,  the  high  limit  data,  and  the 
low  limit  data. 
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III.  PROCEDURES  FOR  USING  MODEL 

A.   THE  DISTRIBUTION  DISKS 

The  model  package  contains  four  disks.  Two  are  labeled 
"IBM  Compatible",  Distribution  Disks  I  and  II,  and  two  are 
labeled  "Heath/Zenith  100"  Distribution  Disks  I  and  II. 
This  model  was  written  in  two  versions,  one  for  use  on  any 
IBM-PC  compatible  and  one  for  use  on  a  Heath/Zenith  100 
micro  computer.  Both  versions  require  MSDOS  Version  2.0  or 
the  equivalent.  Since  each  requires  a  different  operating 
system,  they  are  not  interchangeable  between  micro  computers 
with  different  operating  systems.  Color  has  been  used  in 
the  displays  to  enhance  the  prompts,  but  the  program  will 
still  run  using  a  black  and  white  monitor,  with  no 
degradation.  Distribution  Disk  I  contains  all  the  files 
necessary  for  the  program  to  run,  including  the  main 
program,  plus  the  six  default  data  files.  The  following  is 
a  list  of  the  files  contained  on  Distribution  Disk  I: 

SWOPATH.COM 

NODES . NOD 

NODEZERO.NOD 

ARCS.ARD 

LENGTH. LED 

HILIMIT.HID 

LOLIMIT.LID 

Note:  After  operating  the  program,  the  user  may  have 
created  one  or  more  additional  data  files,  that  will  also  be 
listed  on  the  directory  of  the  "working  copy"  of 
Distribution  Disk  I. 

Distribution  Disk  II  contains  the  source  code  listings 
for  the  model's  main  program  for  those  users  interested  in 
performing  possible  future  changes  to  the  program.  .  These 
listings   are   also  printed  in  Appendices  A  through  N.   This 
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disk  also  includes  a  program  called  UPDATE.COM  that  allows 
the  user  to  reenter  the  assignment  data  in  the  NODES. NOD 
default  data  file.  The  following  is  a  list  of  the  files 
contained  on  Distribution  Disk  II: 

SWOPATH.PAS 

ZENUTILS.PAS  (only  on  Heath/Zenith  disks) 

IBMUTILS.PAS  (only  on  IBM  Compatible  disks) 

LOGO . PAS 

INITDATA.PAS 

SELECTIO.PAS 

CALCULAT.PAS 

TOTALS. PAS 

CHGDATA.PAS 

SCREENS. PAS 

DISPLAYS. PAS 

DATADUMP.PAS 

ANSWERS. PAS 

STORDATA.PAS 

UPDATE.COM  (listing  not  included) 

B.   GETTING  STARTED 

The  user  should  select  the  two  distribution  disks 
labeled  for  use  on  his  micro  computer  (Either  the  "IBM 
Compatible"  disks,  or  the  "Heath/Zenith  100"  disks.).  The 
distribution  disks  are  not  copy-protected  for  the  user's 
convenience.  The  user  is  reminded  that  this  product  is  U.S. 
Government  property  and  all  appropriate  rules  for  such 
apply.  The  DISKCOPY  command  should  be  used  to  make  exact 
copies  ("working  copies")  of  each  distribution  disk.  The 
original  distribution  disks  should  be  kept  separately  in  a 
safe  place.  The  working  copy  of  Distribution  Disk  I  should 
now  be  placed  into  drive  A. 
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C.   SAMPLE  PROGRAM  EXECUTION 

The  following  will  be  a  detailed  explanation  of  how  the 
program  works,  including  actual  displays  (some  slightly 
modified,  due  to  space  considerations)  that  the  user  can 
expect  to  see,  if  the  user  follows  the  procedures  described 
in  the  text.  Entries  required  to  be  made  by  the  user  are 
indicated  within  quotation  marks.  For  example,  if  the  user 
is  required  to  press  the  letter  A,  it  will  be  indicated  in 
the  text  as  "A",  if  the  user  is  required  to  press  the  number 
8  and  then  press  carriage  return  (enter,  or  return),  this 
will  be  indicated  in  the  text  as  "8<CR>".  All  character 
entries  will  be  indicated  in  the  text  by  upper  case  letters. 
It  is  not  necessary  for  the  user  to  use  upper  case  letters 
when  making  entries  since  the  program  will  recognize  either 
upper  or  lower  case  responses  as  correct. 

1 .   Selecting  Input  Data  Files 

To  start  the  program,  type  "SWOPATH<CR> "  at  the 
prompt:  A>.  The  first  screen  will  be  the  logo  including  the 
version  number  of  the  program,  which  will  automatically 
change  to  the  display  depicted  in  Fig'ure  3.1  below. 


Do  you  want  to  change  the  input  data  files  from  those 
1 isted  below? 

Data:  Data  files 

0.  No  changes  wanted/ f in ished  changes. 

1.  Number  of  officers  at  each  assignment:  Nodes 

2.  Transfer  path  percentages:  Arcs 

3.  Assignment  tour  lengths:  Length 

4.  High  limits:  Hilimit 

5.  Low  limits:  Lolimit 


Type  your  selection  (0,1,2,3,4,5  1; 


Figure  3.1  Input  Data  File  Screen 

This  screen  provides  the  user  with  the  option  of 
utilizing  the  default  data  files  listed,  or  changing  to  a 
data  file  of  the  user's  choice.  If  the  user  chooses 
something  other  than  0,1, 2, 3, 4, or  5,   the   program   provides 
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the  brief  message  near  the  bottom  of  the  screen,  'Your 
response  is  incorrect,  please  try  again',  and  returns  to  the 
original  screen  shown  in  Figure  3.1  above.  As  an  example, 
let's  choose  to  change  the  data  file  for  the  number  of 
officers  at  each  assignment  by  pressing  "1".  Figure  3.2  is 
the  display  that  now  is  on  the  screen. 

Remember,  you  must  choose  a  data  file  that  you  have 
previously  saved.   Those  are  listed  below. 

NODEZERO 
NODES 

Enter  the  input  filename 

typed  exactly  as  listed  above, 

that  you  choose  to  use: 

Type   NODES  if  you  want  to  exit  back  to  menu. 

Figure  3.2   Change  Data  File  Screen 

The  two  files  'NODEZERO  and  NODES'  are  the  only 
files,  currently  on  the  distribution  disk,  that  contain  the 
formatted  data  indicating  the  number  of  officers  at  each 
assignment.  If  the  user  wanted  to  return  to  the  previous 
menu,  Figure  3.1  without  making  any  changes  he  would  follow 
the  Instruction  on  the  last  line  of  the  display  In  this  case 
typing  the  word  NODES.  If  the  user  types  a  filename  other 
than  one  of  those  listed,  the  program  provides  a  brief  error 
message  and  returns  to  the  screen  in  Figure  3.2.  If  the 
user  has  earlier  created  his  own  assignment  data  files,  they 
would  be  listed  along  with  the  NODEZERO  and  NODES  files. 

If  the  user  had  chosen  "2"  from  the  screen  shown  by 
Figure  3.1  the  next  screen  display  would  be  similar  to  that 
in  Figure  3.2,  but  would  Instead  list  the  files  containing 
transfer  path  percentage  data.  Similar  statements  may  be 
made  for  choices  3,  4  or  5. 

In  this  example  we  will  select  NODES  by  entering 
"NODES<CR> M .   The  program   now   returns   to   the   screen   In 
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Figure  3.1,  to  provide  the  user  the  opportunity  to  make 
another  change  In  the  Input  data  files.  After  all  desired 
changes  have  been  made,  typing  "0"  will  so  indicate  to  the 
program  which  will  then  respond  by  printing  across  the 
bottom  of  the  screen,  'Initializing  .  .  .  .  '.  The 
program  is  now  reading  each  data  file  into  memory  storage. 
Each  time  it  reads  a  data  file  Into  memory,  It  Informs  the 
user  by  printing  the  Initializing  message.  Once  it 
completes  reading  In  all  five  data  files,  the  program 
automatically  proceeds  to  the  next  display  shown  in  Figure 
3.3. 

Currently  the  number  of  accessions  each  quarter  is 

350  officers 
The  new  number  of  accessions  each  quarter  is: 
Press  <CR>  for  no  change. 

Figure  3.3  Change  Number  of  Officer  Accessions  Screen 

2.  Initializing  the  Number  of  Officer  Accessions 

This  screen  provides  the  user  with  the  opportunity 
to  initialize  the  number  of  officer  accessions  used  by  the 
program.  The  default  value  for  officer  accessions  per 
quarter  is  350  officers.  The  user  can  either  type  a  new 
number  or  by  just  pressing  the  carriage  return, "<CR> " ,  the 
user  accepts  the  the  default  number  of  officer  accessions 
and  the  program  automatically  displays  the  next  screen. 
Figure  3.4. 

3.  The  Selection  Menu 

This  screen  provides  the  user  with  the  primary 
options  he  will  require  to  operate  the  program.  From  this 
selection  menu  the  user  can  display  data,  change  data, 
reinitialize  data  values  or  conduct  calculations.  Note  at 
the  top  of  the  screen  that  the  program  tells  the  user  for 
how  many  years   and   quarters   the   calculations   have   been 
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completed.  No  calculations  have  been  performed  yet,  so  the 
indication  is  0  years  and  0  quarters.  So  far  the  only 
operation  the  program  has  conducted  was  to  read  in  the  data 
to  fill  the  network  with  the  required  values. 

Calculations  have  been  completed  for  0  years  and  0  quarter 
Choose  one  of  the  following  selections. 

0.  All  -  finished. 

1.  Review  the  display  selections. 

2.  Display  an  activity  v.s.  all  tours 

3.  Display  a  tour  v.s.  all  activities 

4.  Display  the  transfer  paths  FROM  an  assignment 

5.  Display  the  transfer  paths  TO  an  assignment 

6.  Display  the  assignments  by  quarters  left 

7.  Change  data  values 

8.  Reinitialize  data  values. 

9.  Ready  for  calculations. 

Please  type  in  the  number  of  your  selection 

(0, 1,2,3,4,5,6,7,8,9) 

Figure  3.4  Selection  Menu  Screen 

4.   Data  Displays 

a.   Activity  v.s.  All  Tours 

By  pressing  "2"  to  display  an  activity  v.s.  all 
tours  the  '  program  first  provides  the  user  with  a  menu  (see 
Figure  3.5)  from  which  to  choose  the  activity  the  user 
wishes  to  see. 

Which  activity  are  you  interested  in? 

A.  Professional  Training 

B.  Professional  Education 

C.  Washington  DC 

D.  Shore  (CONUS) 

E.  Afloat  Staff 
G.  Shore  (OUTUS) 
H.  Separation 

Type  your  choice: 

Figure  3.5   Display  Act  i v  i  ty  v.s.  Tour  Selection  Screen 

When  selecting  Shore  (CONUS)  by  pressing  "D"  the 
program  indicates  the  number  of  years  and  quarters  for  which 
calculations   have   been   completed.    It  indicates  that  the 
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user  chose  the  activity,  Shore  (CONUS),  and  then  provides  a 
breakdown  of  the  number  of  officers  serving  in  a  Shore 
(CONUS)  assignment  during  their  first  tour,  second  tour, 
etc..  (See  Figure  3.6)  For  instance,  there  are  204  officers 
currently  in  their  fourth  tour,  serving  in  an  assignment 
that  falls  under  the  general  activity,  Shore  (CONUS).  The 
program  then  provides  the  user  with  the  opportunity  to 
display  another  activity  breakout.  By  answering  'Y'  the 
user  would  see  the  screen  depicted  in  Figure  3.5  above,  and 
have  the  opportunity  to  choose  a  different  "activity  v.s. 
tour"  breakout.  If  the  user  desires  to  display  no  other 
activities  he  types  "N". 

For  0  years  and  0  quarter(s)  calculations. 
For:   Shore  (CONUS) 

TOURS 

FIRST      SECOND      THIRD 

0  780        270 

SEVENTH    EIGHTH      NINTH 
'300        300        350 

Do  you  desire  to  see  another  activity  breakout?  (Y/N) 


FOURTH 

FIFTH 

SIXTH 

204 

204 

300 

TENTH 

ELEVENTH 

TWELFTH 

200 

300 

0 

Figure  3.6   Activity  v.s.  Tour  Breakout  Screen 

The  user  is  then  returned  back  to  the  Selection 
Menu  shown  in  Figure  3.4  above. 

b.    Tour   v.s.  All  Activities 

By  pressing  "3",  the  program  first  provides  the 
user  with  a  menu  (Figure  3.7)  In  order  to  choose  which  tour 
the  user  wishes  to  examine.  Note  that  the  display  prompts 
the  user  to  type  the  number  of  his  choice  and  then  to  press 
the  carriage  return  key  <CR>. 

When  selecting  the  Fourth  Tour  by  entering 
"4<CR>",  the  program  again  indicates  for  how  many  years  and 
quarters  calculations  have  been  completed.   The  display  also 
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indicates   that   the   user   chose   the  Fourth  Tour,  and  then 
provides  a  breakdown  of  the  total  number  of  officers  who  are 

Which  tour  do  you  wish  to  see  displayed? 
TOUR 


1. 

FIRST 

2. 

SECOND 

3. 

THIRD 

4. 

FOURTH 

5. 

FIFTH 

6. 

SIXTH 

7. 

SEVENTH 

8. 

EIGHTH 

9. 

NINTH 

10. 

TENTH 

11. 

ELEVENTH 

12. 

TWELFTH 

TOUR: 


(type  number<CR>) 


Figure  3.7   Display  Tour  v.s.  Activity  Selection  Screen 

in  their  Fourth  Tour  by  assignments  categorized  as 
Professional  Training,  Professional  Education,  Washington 
DC,  Shore  (CONUS),  etc..   (see   Figure   3.8)   For   instance, 


For  0  years  and  0  quarter(s)  calculations. 
For:  Fourth  Tour 


Act  i v  i ty : 

Professional  Training 
Professional  Education 
Washington  DC 
Shore  (CONUS) 
Fleet  Unit 
Afloat  Staff 
Shore  (OUTUS) 
Separat  ion 
Total  Officers 


Number  of  officers 

50 

200 

168 

204 

480 

96 

24 

0 

1222 


Do  you  desire  to  see  another  tour  breakout?  (Y/N) 


Figure  3.8   Tour  v.s.  Activity  Screen 
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there  are  204  officers  currently  in  their  Fourth  Tour, 
serving  in  an  assignment  that  falls  under  the  general 
activity,  Shore  (CONUS).  The  program  then  provides  the  user 
with  the  opportunity  to  display  another  tour  breakout.  By 
answering  *Y*  the  user  would  see  the  screen  depicted  in 
Figure  3.7  above,  and  have  the  opportunity  to  choose  a 
different  "tour  v.s.  activity"  breakout.  By  typing  HN"  the 
user  is  returned  back  to  the  Selection  Menu  shown  in  Figure 
3.4  above. 

c.   Transfer  Paths  From  an  Assignment 

By   pressing   "4"   to   see   a   display   for   the 
transfer  paths  from  an  assignment  the   program  will   provide 


Which  assignment  do  you  wish  to  see 

the  transfer  paths  from? 


TOUR 

ACTIVITY 

1. 

FIRST 

A. 

PROFESSIONAL  TRNG 

2. 

SECOND 

B. 

PROFESSIONAL  EDUC 

3. 

THIRD 

C. 

WASHINGTON  DC 

4. 

FOURTH 

D. 

SHORE  CONUS 

5. 

FIFTH 

E. 

FLEET  UNIT 

6. 

SIXTH 

F. 

AFLOAT  STAFF 

7. 

SEVENTH 

G. 

SHORE  OUTUS 

8. 

EIGHTH 

H. 

SEPARATION 

9. 

NINTH 

10. 

TENTH 

11. 

ELEVENTH 

12. 

TWELFTH 

TOUR:    (type  number<CR>)   ACTIVITY:     (type  letter) 

Figure  3.9   Display  Transfer  Paths  FROM  Selection  Screen 

the  user  with  a  menu  (see  Figure  3.9)  to  select  which 
assignment  the  user  wants  to  see  the  transfer  path 
percentages  FROM.  Note  that  once  again  the  display  prompts 
the  user  to  type  a  number  and  then  press  the  carriage  return 
<CR>.  If  the  user  selects  either  TWELFTH  TOUR  or  the 
SEPARATION  activity,  the  program  will  briefly  warn  the  user 
that  there  are  no  transfer  paths  FROM  either  of  these  two 
options,   and   then  allows  the  user  to  change  his  selection. 
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Pressing  "3<CR>"  and  then  "F"  to  select  the  THIRD  TOUR, 
AFLOAT  STAFF  assignment.  Figure  3.10  will  appear  on  the 
next  screen. 


/-TO  Fourth  Tour  Prof  Trng 
/     60%   or  10  officers 
/ 

/ TO  Fourth  Tour  Prof  Educ 

/        10%   or   2  officers 
Display  for  / 

0  years  and         / TO  Fourth  Tour  WashDC 

0  quarters         /  10%   or   2  officers 

/ 

FROM  / TO  Fourth  Tour  Shore  (CONUS) 

Third  Tour  Afloat  Staff        20%   or   3  officers 

\ 

16  officers       \ TO  Fourth  Tour  Fleet  Unit 

will  be  transferred.  0%   or  0  officers 

\ 

\ TO  Fourth  Tour  Afloat  Staff 

\         0%    or   0  officers 
\ 

\ TO  Fourth  Tour  Shore  (OUTUS) 

\      0%    or   0  officers 
\ 
\T0  Fourth  Tour  Separation 
0%   or   0  officers 

Do  you  desire  to  see  another  transfer  path  breakout?( Y/N) 


Figure  3.10   Transfer  Path  Percentages  FROM  Screen 

Once  again  the  program  indicates  for  how  many 
years  and  quarters  calculations  have  been  completed  and 
indicates  assignment  the  user  has  selected  to  see  the 
transfer  path  percentages  FROM.  The  display  shows  how  many 
officers  will  be  transferred  from  the  Third  Tour  Afloat 
Staff  assignment  and  then  on  the  right,  indicates  where 
those  officers  will  be  transferred.  In  Figure  3.10  the 
display  shows  that  16  officers  will  be  transferred.  This 
means  that  at  the  Third  Tour  Afloat  Staff  assignment  there 
are  16  officers  with  one  quarter  left  to  serve.  When  the 
program  begins  calculations  these  16  officers  will  be 
transferred  as  shown  in  the  figure.  Namely,  sixty  percent, 
or  10  of  those  16  officers  will  be  transferred  to  a  Fourth 
Tour  Professional  Training  assignment,  ten  percent  or  2 
officers   will   be  transferred  to  a  Fourth  Tour  Professional 
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Education  assignment,  etc..   The  individual  numbers  may   not 
sum  up  to  the  total  officers  transferred  due  to  rounding. 

Once  again  the  program  provides  the  user  with 
the  opportunity  to  choose  to  see  another  transfer  path 
breakout.  If  the  user  chooses  'Y',  then  the  screen  shown  in 
Figure  3.9  will  appear  and  the  user  may  again  select  an 
assignment.  By  pressing  "N"  the  program  will  return  to  the 
Selection  Menu  shown  in  Figure  3.4. 

d.   Transfer  Paths  To  an  Assignment 

Pressing  "5"  to  display  the  transfer  paths  TO  an 
assignment,  Figure  3.11  shows  the  screen  the  user  will  see. 

On  this  screen  the  program  provides  the  user 
with  a  menu  for  selecting  to  which  assignment  the  user  wants 
to  see  the  transfer  path  percentages.  Note  that  once  again 
the  display  prompts  the  user  to  type  a  number  and  then  press 
the  carriage  return  <CR>.  If  the  user  selects  FIRST  TOUR 
the  program  will  briefly  warn  the  user   that   there   are   no 


Which  assignment  do  you  wish  to  see 

the  transfer  paths  to? 


TOU 

R 

ACTIVITY 

1. 

FIRST 

A. 

PROFESSIONAL  TRNG 

2. 

SECOND 

B. 

PROFESSIONAL  EDUC 

3. 

THIRD 

C. 

WASHINGTON  DC 

4. 

FOURTH 

D. 

SHORE  CONUS 

5. 

FIFTH 

E. 

FLEET  UNIT 

6. 

SIXTH 

F. 

AFLOAT  STAFF 

7. 

SEVENTH 

G. 

SHORE  OUTUS 

8. 

EIGHTH 

H. 

SEPARATION 

9. 

NINTH 

10. 

TENTH 

11. 

ELEVENTH 

12. 

TWELFTH 

TOUR:    (type  number<CR>)   ACTIVITY:     (type  letter) 

Figure  3.11   Display  Transfer  Paths  TO  Selection  Screen 

transfer   paths   TO  that  option,  and  then  allows  the  user  to 
change  his  selection.   Pressing   "6<CR>"   and   then   "E"   to 
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select   the   SIXTH   TOUR,   FLEET   UNIT   assignment,  a  screen 
showing  Figure  3.12  will  appear  next. 


FROM  Fifth  Tour  Prof  Trng      \ 

100%   or  5  officers  \ 

\ 

FROM  Fifth  Tour  Prof  Educ      \ 

60%   or  1  officers  \ 

\       Display  for 

FROM  Fifth  Tour  WashDC         \     0  years  and 

95%   or  8  officers  \    0  quarters 

\ 

FROM  Fifth  Tour  Shore  (CONUS)  \      TO 

95%   or  16  officers  >  Sixth  Tour 

/   Fleet  Unit 

FROM  Fifth  Tour  Fleet  Unit     -- / 

5%   or  2  officers  /  38  officers 

/ 

FROM  Fifth  Tour  Afloat  Staff   / 

5%   or  2  officers  /  NOTE:  Percentages 

/   reflect  the  %  of 

FROM  Fifth  Tour  Shore  (OUTUS)  /    officers  trfd  OUT 

90%   or  4  officers  /     OF  the  FROM 

ass  ignment . 

Do  you  desire  to  see  another  transfer  path  breakou t?( Y/N) 

Figure  3.12  Transfer  Path  Percentages  TO  Screen 

Once  again  the  display  indicates  the  number  of 
years  and  quarters  for  which  calculations  have  been 
completed,  and  indicates  the  tour,  Sixth  Tour  Fleet  Unit, 
that  the  user  selected  to  see  the  transfer  path  percentages 
TO.  This  display  allows  the  user  to  determine  where  the 
officers  being  transferred  into  the  assignment  he  Is 
interested  in  are  coming  from.  The  information  on  the  left 
side  of  this  screen  Is  the  percent  of  the  total  officers  in 
their  last  quarter  at  the  indicated  FROM  assignment  that 
will  be  transferred  to  the  selected  TO  assignment.  The 
number  following  the  percent  figure  in  each  row  is  the 
actual  number  of  officers  to  be  transferred  FROM  the 
indicated  assignment  in  each  row  on  the  left  TO  the 
assignment  on  the  right  side  of  the  screen.  For  instance, 
there  will  be  16  officers  transferred  from  Fifth  Tour  Shore 
(CONUS)  to  Sixth  Tour  Fleet  Unit.  The  16  officers  are 
ninety   five   percent   of  all  the  officers  assigned  to  Fifth 
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Tour  Shore  (CONUS)  with  one  quarter  left.  Occasionally 
there  will  be  a  percent  indicated,  yet  0  officers  shown  to 
be  transferred.  This  occurs  when  there  are  no  officers  with 
one  quarter  left  at  the  FROM  assignment.  Also  the  numbers 
of  officers  on  the  left  may  not  sum  to  the  number  indicated 
as  the  total  transferred  due  to  rounding.  Choosing  'Y'  will 
return  the  user  to  the  display  shown  in  Figure  3.11,  to 
select  another  assignment  to  which  he  may  want  to  display 
the  transfer  path  percentages.  If  the  user  is  finished,  he 
would  press  "N"  and  thereby  return  to  the  Selection  Menu  of 
Figure  3.4. 

e.   Assignment  by  Quarters  Left 

Figure  3.13  •  shows  the  screen  the  user  will  see 
when  pressing  "6"  to  display  the  assignments  by  quarters 
left. 


Which  assignment  do  you  wish  to  see? 
TOUR  ACTIVITY 


PROFESSIONAL  TRNG 
PROFESSIONAL  EDUC 
WASHINGTON  DC 
SHORE  CONUS 
FLEET  UNIT 
AFLOAT  STAFF 
SHORE  OUTUS 
SEPARATION 


1 . 

FIRST 

A. 

2. 

SECOND 

B. 

3. 

THIRD 

C. 

4. 

FOURTH 

D. 

5. 

FIFTH 

E. 

6. 

SIXTH 

F. 

7. 

SEVENTH 

G. 

8. 

EIGHTH 

H. 

9. 

NINTH 

10. 

TENTH 

11  . 

ELEVENTH 

12. 

TWELFTH 

TOUR:    (type  number<CR>)   ACTIVITY:     (type  letter) 

Figure  3.13   Display  Assignments  bv  Quarters  Left 

Se lect  ion   Screen 

The  program  here  provides  the  user  with  a  menu 
to  select  which  assignment  from  which  the  user  wants  to  see 
the  breakout  of  officers  assigned  by  quarters  left.  Again 
the  display  prompts  the  user  to  type  a  number  and  then  press 
the  carriage  return  <CR>. 
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Pressing  "9<CR>"  and  then  "G"  to  select  the 
NINTH  TOUR,  SHORE  OUTUS  assignment  Figure  3.14  will  appear 
on  the  next  screen. 


After  0  year(s)  and  0  quarter(s) 
Ninth  Tour  Shore  COUTUS) 
Tour  Length  of  12  quarters. 

Officers  assigned: 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
0 
0 
0 
0 


w  i  th 
wi  th 
with 
with 
with 
with 
w  i  th 
wi  th 
with 
with 
with 
wi  th 
with 
with 
w  i  th 
with 


3 
4 
5 
6 
7 


1  qtr 

2  qtrs 
qtrs 
qtrs 
qtrs 
qtrs 
qtrs 

8  qtrs 

9  qtrs 
10  qtrs 
I  1  qtrs 

12  qtrs 

13  qtrs 

14  qtrs 

15  qtrs 

16  qtrs 


left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 


The  total  number  of  officers  assigned  is  60 
Do  you  desire  to  see  another  ass ignment?( Y/N) 

Figure  3.14   Officers  Assigned  bv  Quarters  Left  Screen 

Here,  the  program  indicates  the  years  and 
quarters  for  which  calculations  have  been  completed  and 
indicates  the  assignment  selected  by  the  user,  Ninth  Tour 
Shore  (OUTUS).  This  display  also  indicates  the  tour  length 
of  the  assignment.  As  discussed  previously,  the  maximum 
length  of  any  assignment  in  the  model  is  16  quarters. 
Although  not  all  assignments  are  for  16  quarters,  the 
display  will  always  show  16  quarters  of  information.  Note 
that  there  are  0  officers  assigned  with  13,  14,  15,  and  16 
quarters  left. 

The  display  also  indicates  the  total  number  of 
officers  assigned  to  the  selected  assignment. 

As  before  the  program  provides  an  opportunity 
for  the  use  to  choose  to  see  another  display  of  officers 
assigned  by  quarters  left.  If  finished,  pressing  MN" 
returns  the  user  to  the  Selection  Menu  of  Figure  3.4. 
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This  completes  the  examples  of  the  different 
types  of  displays  available  with  the  program.  If  a  less 
experienced  user  desires  to  review  the  displays,  selection 
number  1  of  the  Selection  Menu  of  Figure  3.4  will  provide 
him  with  a  brief  review  of  each  of  the  available  displays. 
5.   Changing  Data 

In  order  to  change  data  values>  the  user  must  press 
"7"  from  the  list  on  the  Selection  Menu  of  Figure  3.4. 
Figure  3. 15  shows  the  next  screen  the  user  can  expect  to 
see . 

Which  data  do  you  desire  to  change? 

Input  data  Data  file 

0.  No  changes/finished  changes. 

1.  Number  of  officer  accessions. 

2.  Transfer  path  percentages:  Arcs 

3.  Assignment  tour  lengths:  Length 

4.  High  limits:  Hilimlt 

5.  Low  limits:  Lolimit 

Type  your  selection  [0,1,2,3,4,51: 

Figure  3.15   Data  Change  Menu  Screen 

Here,  the  program  provides  the  user  with  the 
opportunity  to  change  all  the  data  in  the  program  with  the 
exception  of  the  number  of  officers  presently  assigned  to 
each  billet.  In  addition  to  listing  the  possible  categories 
of  input  data  the  user  might  wish  to  change,  the  display 
also  indicates  the  data  file  the  program  Is  presently 
employing  to  establish  that  data,  where  applicable.  The 
menu  in  Figure  3.15  allows  the  user  to  select  the  data  he 
desires  to  change. 

a.   Changing  the  Number  of  Accessions 

Pressing   "I"   to   select   the  number  of  officer 
accessions  the  screen  will  show  Figure  3.16. 
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Currently  the  number  of  accessions  each  quarter  Is 

350  officers. 

The  new  number  of  accessions  each  quarter  Is: 
Press  <CR>  for  no  change. 

Figure  3.16   Changing  Number  of  Officer  Accessions  Screen 

This  display  shows  the  number  of  officers 
entering  the  Surface  Warfare  Officer  Community  from  all 
sources,  each  quarter.  The  program  provides  the  user  an 
opportunity  to  change  this  number  by  simply  typing  the  new 
number  and  pressing  the  carriage  return.  If  the  user  does 
not  want  to  change  the  value  then  pressing  the  carriage 
return  "<CR>"keeps  the  number  of  officer  accessions  at  350 
officers.  The  program  displays  the  new  number  of  officer 
accessions  as  selected  by  the  user  and  then  returns  to  the 
change  menu  shown  In  Figure  3.15. 

Which  assignment  do  you  wish  to  change  the  path  %  from? 

TOUR  ACTIVITY 

PROFESSIONAL  TRNG 
PROFESSIONAL  EDUC 
WASHINGTON  DC 
SHORE  CONUS 
FLEET  UNIT 
AFLOAT  STAFF 
SHORE  OUTUS 
SEPARATION 


TOUR:    (type  number<CR>)   ACTIVITY:     (type  letter) 

Figure  3.17   Change  Transfer  Path  Percentages 

Selection  Screen 

b.   Changing  the  Transfer  Path  Percentages 

Pressing  "2"  to  select  transfer  path  percentages 
the  screen  will  show  Figure  3.17. 


1 . 

FIRST 

A. 

2. 

SECOND 

B. 

3. 

THIRD 

C. 

4. 

FOURTH 

D. 

5. 

FIFTH 

E. 

6. 

SIXTH 

F. 

7. 

SEVENTH 

G. 

8. 

EIGHTH 

H. 

9. 

NINTH 

10. 

TENTH 

11  . 

ELEVENTH 

12. 

TWELFTH 
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The  program  here  provides  the  user  with  a  menu 
to  select  from  which  assignment  the  user  wants  to  change  the 
transfer  path  percentages. 

Pressing  "3<CR>"  and  the  "E"  to  select  the  THIRD 
TOUR  FLEET  UNIT  assignment  the  screen  will  show  Figure  3.18. 


/-TO  A:Fourth  Tour  Prof  Trng 
/  5% 

/ 

/ TO  B:Fourth  Tour  Prof  Educ 

/  0% 

/ 

/ TO  C:Fourth  Tour  WashDC 

/  0% 

/ 

FROM  / TO  D:Fourth  Tour  Shore  (CONUS) 

Third  Tour  Fleet  Unit  85% 

\ 

\ TO  E:Fourth  Tour  Fleet  Unit 

\  0% 

\ 

\ TO  F:Fourth  Tour  Afloat  Staff 

Percent  Total      \  0% 

100  %  \ 

\ TO  G:Fourth  Tour  Shore  (OUTUS) 

\  0% 

\ 
\T0  H:Fourth  Tour  Separation 
10% 

Which  path  %  do  you  wish  to  change?( A-H)or(Q  to  quit) 


Figure  3.18  Change  Transfer  Path  Percentages  Screen 

This  display  shows  the  current  transfer  path 
percentages  from  the  indicated  assignment  to  each  assignment 
in  the  next  tour.  Note  the  program  prompt  at  the  bottom  of 
the  screen.  Selecting  "A"  the  cursor  will  move  to  the  line 
below  "TO  A:  Fourth  Tour  Prof  Trng"  just  before  the  5%.  To 
change  the  transfer  percentage,  simply  type  the  new  value 
and  press  the  carriage  return.  For  example,  typing  "30<CR>" 
the  display  will  change  in  two  places.  Where  before  the 
percentage  read  5%  in  normal  video,  it  now  reads  30%  in 
reverse  video.  The  reverse  video  feature  is  to  indicate  to 
the  user  that  he  has  changed  that  particular  value.  The 
second  display  change  is  where  the  percent  total  is 
indicated.    The  number  displayed  will  be  125%,  displayed  in 
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reverse  video  to  indicate  to  the  user  that  a  change  has 
occurred.  The  reverse  video  feature  will  occur  whether  the 
user  changes  the  percentage  or  simply  types  the  exact  same 
percentage  again.  After  making  the  above  change,  the  cursor 
has  now  returned  to  the  bottom  of  the  screen,  prompting 
another  change. 

If  the  user  now  types  "Q"  to  quit  this  section 
of  the  program  a  warning  will  be  displayed  at  the  bottom  of 
the  screen  to  indicate  to  the  user  that  he  cannot  leave  this 
section  of  the  program,  until  he  forces  the  percent  total  to 
equal  either  zero,  or  one  hundred  percent.  The  user  In  the 
present  case  the  user  is  warned  that  the  percent  total  does 
not  equal  either  zero  or  one  hundred,  the  current  percent 
total  (here  125%)  is  displayed,  and  he  is  instructed  to 
continue  to  make  changes  to  the  transfer  path  percentages 
until  one  of  the  mentioned  totals  is  achieved.  The  user  is 
then  returned  to  the  original  prompt  and  asked  which  path 
percentage  the  user  desires  to  change.  This  time  pressing 
"D"  to  change  the  transfer  percentage  to  Fourth  Tour  Shore 
(CONUS)  the  cursor  has  moved  to  immediately  before  the  85%. 
Typing  "60<CR>",  the  percentage  should  now  be  highlighted  in 
reverse  video,  and  the  percent  total  should  now  read  one 
hundred  percent.  The  cursor  also  returns  to  the  bottom  of 
the  screen,  to  prompt  the  user  for  another  change.  Now  that 
the  100  percent  total  has  been  achieved,  typing  "Q"  allows 
the  user  to  leave  this  section  by  asking  him  if  he  desires 
to  change  another  transfer  path  percentage.  Typing  "N",  the 
program  automatically  returns  to  the  change  menu  of  Figure 
3.  15. 

c.   Changing  the  Assignment  Tour  Lengths 

Pressing   "3"   for   assignment  tour  lengths,  the 
screen  will  show  Figure  3.19. 
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Which  assignment  tour  length  do  you  wish  to  change? 

TOUR  ACTIVITY 

PROFESSIONAL  TRNG 
PROFESSIONAL  EDUC 
WASHINGTON  DC 
SHORE  CONUS 
FLEET  UNIT 
AFLOAT  STAFF 
SHORE  OUTUS 
SEPARATION 


1. 

FIRST 

A. 

2. 

SECOND 

B. 

3. 

THIRD 

C. 

4. 

FOURTH 

D. 

5. 

FIFTH 

E. 

6. 

SIXTH 

F. 

7. 

SEVENTH 

G. 

8. 

EIGHTH 

H. 

9. 

NINTH 

10. 

TENTH 

il  . 

ELEVENTH 

12. 

TWELFTH 

TOUR:    (type  number<CR>)   ACTIVITY: 


(type  letter) 


Figure  3.19   Change  Assignments  Tour  Length  Selection  Screen 

Here  the  program  provides  the  user  with  a  menu 
to  select  the  assignment  for  which  the  user  wants  to  change 
the  tour  length.  Figure  3.21  shows  the  next  screen  the  user 
will  see  when  pressing  "3<CR>"  and  then  "E"  to  select  the 
THIRD  TOUR,  FLEET  UNIT  assignment. 


The  old  Third  Tour  Fleet  Unit  length  is  8  quarters 
How  many  quarters  long  do  you  want  assignment  now? 

Figure  3.20   Change  Assignment  Tour  Length  Screen 

This  display  indicates  the  old  tour  length  of  8 
quarters  for  the  Third  Tour  Fleet  Unit  and  prompts  the  user 
to  enter  the  new  tour  length  in  quarters.  Caution:  The  user 
must  enter  a  value  and  then  press  the  carriage  return.  If 
he  only  presses  the  carriage  return,  without  entering  a 
value,  the  program  may  not  operate  properly.  For  example, 
typing  "10<CR>"  the  program  displays  the  old  value  and  the 
new  value,  and  then  automatically  returns  to  the  change  menu 
of  Figure  3.15. 

d.   Changing  the  High  Limits 

Figure  3.21  shows  the  next  screen  the  user  will 
see  if  "4"  is  pressed  for  high  limits. 
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Which  high  limit  do  you  wish  to  change? 

TOUR  ACTIVITY 

PROFESSIONAL  TRNG 
PROFESSIONAL  EDUC 
WASHINGTON  DC 
SHORE  CONUS 
FLEET  UNIT 
AFLOAT  STAFF 
SHORE  OUTUS 
SEPARATION 


1. 

FIRST 

A. 

2. 

SECOND 

B. 

3. 

THIRD 

C. 

4. 

FOURTH 

D. 

5. 

FIFTH 

E. 

6. 

SIXTH 

F. 

7. 

SEVENTH 

G. 

8. 

EIGHTH 

H. 

9. 

NINTH 

10. 

TENTH 

11. 

ELEVENTH 

12. 

TWELFTH 

TOUR:    (type  nurober<CR>>   ACTIVITY: 


(type  letter) 


Figure  3.21   Change  High  Lim  i  ts  Selection  Screen 

The  program  here  provides  the  user  with  a  menu 
to  select  the  assignment  for  which  the  user  wants  to  change 
the  high  limit.  Figure  3.22  shows  the  next  screen  the  user 
will  see  if  pressing  "3<CR>"  and  the  "A"  to  select  the  THIRD 
TOUR,  PROFESSIONAL  TRNG  assignment. 


The  old  high  limit  for  Third  Tour  Prof  Trng 

is  9999  officers. 

There  currently  are    150   assigned. 

How  many  officers  do  you  want  as  the  high  limit  now? 

Figure  3.22   Change  High  Limit  Display 

This  display  indicates  the  old  high  limit  for 
the  Third  Tour  Prof  Trng,  the  number  of  officers  currently 
assigned  to  the  Third  Tour  Prof  Trng,  and  prompts  the  user 
to  enter  the  new  high  limit.  The  user  is  reminded  here  that 
the  default  setting  for  all  high  limits  in  the  program  is 
9999.  Caution:  The  user  must  enter  a  value  and  then  press 
the  carriage  return.  If  the  user  only  presses  the  carriage 
return,  without  entering  a  value,  the  program  may  not 
operate  properly.  For  example,  typing  "350<CR>",  the 
program   will   display   the  old  value  and  the  new  value,  and 
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then  asks  the  user  if  he  wants  to  change  another  high  limit. 
In  order  to  prepare  for  the  example  in  Section  5,  another 
high  limit  choice  is  made  by  first  typing  "Y"  and  at  the 
High  Limits  Selection  Screen  (Figure  3.21),  FOURTH  TOUR, 
PROFESSIONAL  TRNG  is  selected  by  typing  "4<CR>"  and  "A".  At 
the  prompt  on  the  High  Limit  Change  Display  (Figure  3.22), 
"150<CR>"  is  typed.  Then  to  finish  with  this  section, 
typing  "N"  at  the  prompt  asking  if  another  change  Is  desired 
will  automatically  return  the  user  to  the  change  menu  of 
Figure  3. 15. 

e.   Changing  the  Low  Limits 

Figure   3.23  shows  the  next  screen  the  user  will 
see  if  "5"  is  pressed  for  low  limits. 

Which  low  limit  do  you  wish  to  change? 


TOUR 

ACTIVITY 

1. 

FIRST 

A. 

PROFESSIONAL  TRNG 

2. 

SECOND 

B. 

PROFESSIONAL  EDUC 

3; 

THIRD 

C. 

WASHINGTON  DC 

4. 

FOURTH 

D. 

SHORE  CONUS 

5. 

FIFTH 

E. 

FLEET  UNIT 

6. 

SIXTH 

F. 

AFLOAT  STAFF 

7. 

SEVENTH 

G. 

SHORE  OUTUS 

8. 

EIGHTH 

H. 

SEPARATION 

9. 

NINTH 

10. 

TENTH 

11  . 

ELEVENTH 

12. 

TWELFTH 

TOUR:    (type  number<CR>)   ACTIVITY:     (type  letter) 

Figure  3.23   Change  Low  Limits  Selection  Screen 

The  program  provides  the  user  with  a  menu  to 
select  the  assignment  for  which  the  user  wants  to  change  the 
low  limit.  Figure  3.24  shows  the  next  screen  the  user  will 
see  when  pressing  "3<CR>"  and  then  "E"  to  select  the  THIRD 
TOUR,  FLEET  UNIT  assignment. 
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The  old  low  limit  for  Third  Tour  Prof  Trng 

is  0  officers. 

There  currently  are    80   assigned. 

How  many  officers  do  you  want  as  the  low  limit  now? 

Figure  3.24   Change  Low   Limit  Screen 

This  display  indicates  the  old  low  limit  for  the 
Third  Tour  Fleet  Unit,  the  number  of  officers  currently 
assigned  to  the  Third  Tour  Fleet  Unit,  and  prompts  the  user 
to  enter  the  new  low  limit.  The  user  is  reminded  here  that 
the  default  setting  for  all  low  limits  in  the  program  is  0. 
Caution:  The  user  must  enter  a  value  and  then  press  the 
carriage  return.  If  the  user  only  presses  the  carriage 
return,  without  entering  a  value,  the  program  may  not 
operate  properly.  For  example,  typing  "0<CR>"  the  program 
displays  the  old  value  and  the  new  value,  and  then  asks  the 
user  if  he  wants  to  change  another  low  limit.  Then  to 
finish  with  this  section  "N"  is  typed  at  the  prompt  asking 
if  another  change  is  desired.  The  program  automatically 
returns  to  the  change  menu  of  Figure  3.15. 
6 .   Reinitializing  the  Data 

Pressing  "0"  indicates  that  the  user  is  finished 
making  changes.  The  program  then  automatically  returns  to 
the  Selection  Menu  of  Figure  3.4. 

Which  data  do  you  desire  to  reinitialize? 

Data:  Data  files: 

0.  None /f inished  reinitializing  data. 

1.  Number  of  officers  at  each  assignment:  Nodes 

2.  Transfer  path  percentages:  Arcs 

3.  Assignment  tour  lengths:  Length 

4.  High  limits:  Hilimit 

5.  Low  limits:  Lolimit 

Type  your  selection  10,1,2,3,4,51: 

Figure  3.25   Reinitialize  Data  Selection  Screen 
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To  reinitialize  data  values,  the  user  may  press  "8". 
Figure   3.25  shows  the  next  screen  the  user  will  see. 

The  program  allows  the  user  to  reinitialize  all  data 
used  in  the  program.  The  display  above  shows  the  data  and 
the  corresponding  data  file  currently  being  used  by  the 
program.  The  user  simply  types  the  number  (1  through  5)  of 
his  selection,  and  the  program  will  initialize  that  data 
type,  using  the  file  listed.  The  program  also  sends  the 
user  a  message  along  the  bottom  of  the  screen  to  let  the 
user  know  that  the  program  is  in  fact  initializing  the  data 
selected.  A  word  of  caution  is  required  here.  If  the  user 
has  been  operating  the  program,  and  has  made  changes  to  the 
data,  as  for  example  the  high  limits  for  two  assignments 
have  been  changed  in  Section  5.d.,  then  the  program  will 
destroy  all  such  changes  by  replacing  the  changed  data  with 
the  data  file  listed  above  when  reinitializing  the  same  data 
type  (High  limits  in  this  case). 

Pressing  "2",  for  example,  to  reinitialize  the 
transfer  path  percentages,  note  the  message  that  appears 
along  the  bottom  of  the  screen,  indicating  the  program  is 
initializing  the  transfer  path  data  using  the  file  Arcs. 
After  reinitializing  the  selected  data,  the  program  returns 
the  user  to  the  Reinitializing  Data  Selection  Screen  (Figure 
3.25)  for  another  selection  by  the  user.  When  finished, 
pressing  "0"  will  so  indicate  to  the  program.  The  program 
then  automatically  returns  the  user  to  the  Selection  Menu  of 
Figure  3.4. 

7 .   Calculat  ions 

Note  that  this  display  still  indicates  that  0 
year(s)  and  0  quarter(s)  calculations  have  been  completed. 
By  pressing  "9"  the  user  may  select  to  commence 
calculations.  At  that  point  a  brief  message  appears  at  the 
bottom  of  the  screen  instructing  the  user  that  if  he  wants 
to  quit  and  return  to  the  selection  menu,  he  should  choose  0 
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years  and  0  quarters.  The  next  question  the  program  asks  is 
if  the  user  desires  to  reinitialize  (set  to  zero)  the  years 
and  quarters  count.  This  will  be  explained  further  later  in 
Section  7.  For  now  pressing  "N"  the  program  asks  how  many 
years  and  quarters  the  user  desires  to  run  the  model.  As  an 
example  the  user  may  enter  "3<CR>"  for  the  years  and  "2<CR>" 
for  the  quarters. 

The  program  then  commences  calculations.  It  begins 
by  taking  those  officers  with  I  quarter  left  in  each 
assignment  and  placing  them  in  a  temporary  transfer  file. 
It  then  subtracts  one  quarter  from  the  number  of  quarters 
that  all  other  officers  have  left  in  their  current 
assignments.  This  way  officers  who  earlier  had  2  quarters 
left,  will  now  have  1  quarter  left,  those  with  3  quarters 
left  to  2  quarters  left,  and  so  on.  This  process  is  carried 
our  for  each  assignment  in  the  network.  The  program  then 
takes  the  number  of  officers  in  these  temporary  transfer 
files,  multiplies  them  by  the  respective  transfer  path 
percentages,  and  adds  the  resultant  number  to  the  assignment 
they  are  being  transferred  to.  For  instance,  if  at  the 
beginning  of  calculations  there  were  10  officers  with  one 
quarter  left,  20  officers  with  two  quarters  left,  and  30 
with  three  quarters  left,  at  Third  Tour  Fleet  Unit  then  the 
10  officers  with  one  quarter  left  are  placed  in  a  temporary 
transfer  file,  and  the  20  officers  with  two  quarters  left 
will  have  only  one  quarter  left,  while  the  30  officers  with 
three  quarters  left  will  have  only  two  quarters  left.  The 
program  then  takes  the  transfer  path  percentages,  for 
example  thirty  percent  to  Fourth  Tour  Professional  Education 
and  seventy  percent  to  Fourth  Tour  Fleet  Unit  and  multiplies 
the  10  officers  being  transferred  from  Third  Tour  Fleet  Unit 
by  thirty  and  seventy  percent  respectively.  The  resulting  3 
and  7  officers  are  added  to  Fourth  Tour  Professional 
Education   and  Fourth  Tour  Fleet  Unit.   If,  for  example,  the 


55 


tour  length  of  Fourth  Tour  Professional  Education  is  eight 
quarters  and  the  tour  length  of  Fourth  Tour  Fleet  Unit  is 
five  quarters,  the  3  officers  will  be  added  to  the 
assignment  Fourth  Tour  Professional  Education  with  eight 
quarters  left,  and  the  7  officers  will  be  added  to  the 
assignment  Fourth  Tour  Fleet  Unit  with  five  quarters  left. 
One  must  remember  that  these  3  and  7  officers  will  not  be 
the  only  officers  added  to  those  assignments.  These  are 
just  the  officers  transferred  from  the  assignment  Third  Tour 
Fleet  Unit.  There  are  probably  several  more  officers  being 
transferred  from  the  other  assignments  in  the  Third  Tour,  to 
the  Fourth  Tour  assignments.  The  results  of  these 
calculations  are  maintained  by  the  program  memory  in 
temporary  files,  until  all  calculations  are  completed,  at 
which  time  the  data  is  transferred  into  the  assignment  data 
variables.  If  a  limit  either  high  or  low,  is  violated,  this 
transfer  from  temporary  file  to  the  assignment  data 
variables  does  not  take  place  and  a  warning  is  posted  to  the 
user  as  explained  in  the  next  section.  The  program 
maintains  the  assignment  data  as  configured  after  the  last 
successful  calculations  were  completed, 
a.   Violating  the  Limits 

After  completing  the  transfer  of  all  the 
officers  to  an  assignment,  the  program  checks  to  ensure  that 
the  high  or  low  limits  for  that  assignment  have  not  been 
violated.  If  a  limit  is  violated,  the  program  sends  the 
user  a  warning.  As  an  example.  Figure  3.26  shows  the  screen 
the  user  sees  when  after  conducting  calculations  for  2 
quarters,  the  constraint  for  Fourth  Tour  Professional 
Training  is  exceeded. 

Earlier,  the  user  created  a  high  limit  of  150 
officers  for  Fourth  Tour  Professional  Training.  This  limit 
was  exceeded  after  only  two  quarters  of  calculations.  The 
program  now  officers  the  user  three  options. 
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After  0  year<s)  and  2  quarter(s) 

The  constraint  for  Fourth  Tour  Prof  Trng  has  been  exceeded 

There  are  152  officers  there  now. 

The  high  limit  is  150 

What  do  you  desire  to  do  now? 

0.  Abort  simulation.   Return  to  selection  menu. 

1.  Ignore  limits  and  continue  simulation. 

2.  Back  up  one  quarter  in  the  simulation. 

Figure  3.26   Constraint  Violation  Screen 

(1)  Aborting  the  Simulation.  The  user  can  abort 
the  simulation  and  return  to  the  selection  menu.  The 
display  of  the  selection  will  now  indicate  that  0  years  and 
0  quarters  of  calculations  have  been  completed.  When  the 
user  chooses  to  abort  the  simulation  the  program 
automatically  returns  the  user  to  where  the  user  was  before 
he  started  the  calculations  that  resulted  in  a  violation  of 
the  limits.  In  this  case  the  user  started  with  0  years  and 
0  quarters  of  calculations  completed  and  therefore  the 
program  returned  the  user  to  that  status.  If  for  example, 
the  user  had  first  operated  the  program  for  3  years  without 
violating  a  limit,  and  then  operated  the  program  for  another 
4  years  and  in  doing  so  had  violated  a  limit  and  chosen  to 
abort  the  simulation,  the  program  would  return  the  user  to 
the  3  years  of  calculations  point  in  the  program. 

(2)  Ignor  ing  Limits.  As  another  option,  the 
user  can  choose  to  ignore  the  limits  and  continue  the 
simulation.  If  this  option  is  chosen,  the  program  resets 
the  limit  to  the  default  value  (0  for  low  limits  and  9999 
for  high  limits),  warns  the  user  that  the  limit  has  been 
reset,  and  then  continues  with  the  calculations. 

(3)  Back  Up  One  Quarter.  The  user  may  also 
choose  to  back  up  one  quarter  in  the  simulation.  The 
purpose  of  this  option,  is  to  allow  the  user  to  go   back   to 
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the  point  In  the  calculations,  just  before  the  limit  was 
violated,  allowing  the  user  to  then  change  some  of  the 
parameters,  and  then  continue  with  the  calculations.  After 
completing  calculations  for  one  fewer  quarter,  the  program 
automatically  returns  the  user  to  the  Selection  Menu  of 
Figure   3.4. 

To  continue  with  the  above  example,  pressing  "1" 
will  cause  the  program  to  ignore  the  limit  and  continue  the 
simulation.  The  program  automatically  sends  the  user  a 
message  that  it  has  reset  the  high  limit  of  Fourth  Tour 
Professional  Training  to  9999,  and  that  it  is  continuing 
calculat  ions . 

The  program  will  next  show  the  screen  presented 
by  Figure  3.27. 

After  3  year(s)  and  1  quarter(s), 

The  constraint  for  Third  Tour  Prof  Trng  has  been  exceeded. 

There  are  360  officers  there  now. 

The  high  limit  is  350 

What  do  you  desire  to  do  now? 

0.  Abort  simulation.   Return  to  selection  menu. 

1.  Ignore  limits  and  continue  simulation. 

2.  Back  up  one  quarter  in  the  simulation. 

Figure  3.27  Second  Constraint  Violation  Screen 

This  is  the  result  of  the  user  having  earlier 
created  a  high  limit  for  Third  Tour  Professional  Training  of 
350  officers.  This  limit  is  exceeded  after  3  years  and  I 
quarter  of  calculations.  This  time  pressing  "2"  to  back  up 
one  quarter  in  the  simulation,  the  program  will  commence 
calculations  on  the  data  as  configured  just  prior  to 
commencing  the  calculations  during  which  the  limit  was 
violated.  Then  the  program  will  do  calculations  for  one 
fewer  quarter,  i.e.  for  3  years  and  0  quarters.  The 
program  sends  the  user  a  message  to  this  effect. 

58 


After  completing  calculations,  the  program 
returns  the  user  to  the  Selection  Menu  of  Figure  3.4.  Note 
that  the  top  line  of  the  screen  now  indicates  that  3  years 
and  0  quarters  calculations  have  been  completed.  The  user 
has  now  the  choice  to  display  data  in  various  forms,  in 
order  to  determine  why  the  high  limit  was  exceeded  in  the 
Third  Tour  Professional  Training.  The  user  also  has  the 
option  to  change  data,  e.g.  the  transfer  path  percentages 
that  send  people  to  Third  Tour  Professional  Training  or 
simply  change  the  high  limit  for  Third  Tour  Professional 
Training.  As  an  example,  pressing  "7"  to  change  data  the 
change  data  menu  will  now  appear  on  the  screen  (Figure 
3.15).  Pressing  "4"  to  change  high  limit  data,  the  Change 
High  Limits  Selection  Screen  (Figure  3.21)  will  be 
displayed.  Pressing  "3<CR>"  to  select  THIRD  TOUR  and  "A"  to 
select  PROFESSIONAL  TRAINING,  the  Change  High  Limit  Screen 
(Figure  3.22)  is  now  displayed  for  Third  Tour  Professional 
Training.  Entering  "9999<CR>"  to  change  the  high  limit  from 
350  to  9999and  pressing  "N"  at  the  prompt  asking  if  the  user 
wants  to  make  another  change,  the  program  finally  returns  to 
the  Selection  Menu  of  Figure  3.4. 

b.   Resetting  Year  and  Quarter  Count 

To  continue  with  another  example,  pressing  "9" 
to  commence  calculations,  the  program  will  first  ask  if  the 
user  desires  to  reinitialize  (set  to  zero)  the  years  and 
quarters.  So  far  the  user  has  conducted  calculations  for  3 
years  and  0  quarters.  If  the  user  wants  to  maintain  the 
year  and  quarter  counters  at  3  years  and  2  quarters  the  user 
should  answer  no,  by  pressing  "N",  and  at  the  prompt  asking 
for  how  many  years  and  quarters  to  run  the  model,  he  should 
enter  *0<CR>"  for  0  years  and  "2<CR>"  for  2  quarters.  The 
model  will  then  perform  calculations  for  2  quarters  and 
return  to  the  Selection  Menu  of  Figure  3.4.  Now  the  top 
line   reads   that   3   years  and  2  quarters  calculations  have 
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been  completed.  If  the  user  responds  yes,  to  the  question 
'Do  you  desire  to  reinitialize  (set  to  zero)  yrs  &  qtrs? 
Y/N'  the  program  will  reset  the  year  counter  and  the  quarter 
counter  to  zero.  This  will  not  affect  the  status  of  the 
assignment  data,  that  still  has  3  years  and  0  quarters 
calculations  completed.  If  the  user  now  chooses  to  conduct 
0  years  and  2  quarters  calculations,  after  the  program  has 
completed  the  calculations  and  returns  to  the  selection 
menu,  the  top  line  would  read  that  "0  years  and  2  quarters 
calculations  had  been  completed."  Actually,  this 
calculation  was  performed  on  top  of  3  years  and  0  quarters 
of  previous  calculations. 

The  user  now  could  look  over  the  data  by 
choosing  one  or  more  of  the  several  displays  available.  The 
user  could  also  change  some  of  the  data,  and  continue 
calculations,  or  reinitialize  some  of  the  data  and  possibly 
start  over  again  other  wise  the  user  may  press  "0"  to 
indicate  that  he  is  finished. 

8.   Saving  Data  to  a  Disk  File 

The  program  then  asks  if  the  user  desires  to  save 
any  of  the  data  to  a  disk  file.  This  option  will  allow  the 
user  to  choose  to  save  some  or  all  of  the  data  that  he  has 
been  using  to  a  disk  file  named  by  the  user.  For  instance, 
possibly  the  user  wants  to  quit  for  the  time  being  and 
resume  his  analysis  later.  In  the  above  example  there  is 
assignment  data  as  it  exists  after  3  years  and  2  quarters  of 
calculations  that  the  user  may  wish  to  save.  He  has  also 
changed  high  limits  in  two  cases,  and  may  want  to  save  that 
data.  Pressing  "Y"  will  indicate  that  the  user  wants  to 
save  data  to  a  disk  file.  Figure  3.28  is  the  next  screen 
the  user  will  see. 
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This  procedure  provides  you  with  the  opportunity  to 
save  the  data  as  presently  configured  in  the  program 
to  a  disk  file  named  by  you. 


Press  any  key  to  continue  .  .  . 

Figure  3.28   Save  Data  to  Disk  File  Caption  Screen 

Pressing  any  key,  Figure  3.29  is  the  next  screen  the 
user  will  see. 


Which  data  do  you  wish  to  save? 

Data:  Data  files: 

0.  None/ f in ished  saving  data. 

1.  Number  of  officers  at  each  assignment:  Nodes 

2.  Transfer  path  percentages:  Arcs 

3.  Assignment  tour  lengths:  Length 

4.  High  limits:  Hilimit 

5.  Low  limits:  Lolimit 

Type  your  selection  [0,1,2,3,4,51: 

Figure  3.29   Save  Data  Selection  Menu  Screen 

The  program  provides  the  user  with  the  opportunity 
to  save  any  of  the  data  as  currently  configured  in  the 
program.  The  data  files  listed  are  those  that  are  currently 
in  use.  The  data  in  these  files  has  not  been  changed.  The 
current  configuration  of  the  data  is  stored  in  the  program's 
memory.  Pressing  "4"  to  save  the  high  limit  data  to  a  disk 
file,  Figure  3.30  is  the  next  screen  the  user  will  see. 

Enter  output  filename  (maximum  of  8  letter) 

UNLESS  YOU  DESIRE  TO  OVERWRITE  PREVIOUS  DATA,  DO  NOT  USE 

HILIMIT 

Figure  3.30   Save  Data  Filename  Screen 

The   program   prompts   the  user  to  enter  a  filename. 
Caution:  The  user  must  enter  a  filename,  at  least  one  letter 
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long  and  then  press  the  carriage  return.  Just  pressing  the 
carriage  return  may  cause  the  program  to  operate 
incorrectly.  The  following  characters  may  not  be  used  in 
the  filename: 

?.,     ;     :     =*/\    +    "<     > 

The  following  are  examples  of  illegal  filenames: 

BAD/ONES  -  Illegal  character  (do  not  use  "/") 
WRONG. ONE  -  Illegal  character  (do  not  use  ".") 
TOOOOLONG       -  Too  many  characters 

The  following  are  examples  of  legal  filenames: 

NEWHIGH      HIGHDATA     USERHIGH    GOODNAME 

The  user  is  warned  about  using  the  filename  HILIMIT. 
If  the  user  chooses  that  name,  the  default  data  stored  in 
the  file  HILIMIT,  will  be  destroyed  permanently.  As  an 
example,  the  user  may  type  the  filename  "HIGHTEST<CR> " .  It 
is  not  necessary  to  type  the  filename  in  uppercase.  The 
program,  and  the  operating  system  accepts  either  case.  The 
program  then  dumps  the  currently  configured  data  from 
program  memory,  to  the  disk  file  named  HIGHTEST,  sends  a 
message  to  the  user  to  let  him  know  that  this  is  happening 
(see  bottom  of  screen),  and  then  returns  the  user  to  the 
Save  Data  Selection  Menu  (Figure  3.29).  the  user  could  also 
save  the  assignment  data  by  pressing  1  at  this  point. 
9.   Replacing  Default  Data  Files 

Pressing   "0"   to   indicate   finished   saving   data, 
Figure  3.31  will  be  the  next  screen  the  user  will  see. 

The  program  now  provides  the  user  with  the  option  to 
replace    the    default    data    files,    (the    files   that 
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Now  that  you  have  saved  that  data  to  your  own  file,  do  you 
desire  to  use  it  to  replace  the  base  data?  (Y/N) 

Figure  3.31   First  Replace  Data  Screen 

automatically  load  in  if  the  user  makes  no  changes  to  the 
input  data  files  at  the  first  screen)  with  the  currently 
configured  data  in  the  program's  memory.  As  the  next  screen 
warns,  this  step  is  a  very  serious  one.  It  is  a  one  way 
change,  and  once  done,  the  previous  default  data  is  lost 
forever.  The  user  is  probably  better  advised  to  not  replace 
the  base  data  file's  data  in  most  instances.  He  may  still 
use  the  file  just  created  if  at  the  first  screen  in  the 
program  when  asked  whether  the  user  desires  to  change  the 
input  data  files  he  answers  in  the  affirmative.  However,  if 
the  for  this  example,  the  user  answers  yes  by  pressing  "Y" 
to  the  query  in  Figure  3.31,  the  program  will  show  Figure 
3.32  on  the  next  screen. 


You  have  chosen  to  save  the  data  as  it  is  currently 
calculated  by  the  program,  to  be  the  new  initialization 

data. 

This  is  a  serious  step. 

You  will  be  losing  the 
default  data  established  in  the 
mode  1  . 

Press  any  key  to  continue  .  .  . 

Figure  3.32   Second  Replace  Data  Screen  :  WARNING 

Pressing  any  key,  Figure  3.33  is  the  next  screen  the 
user  will  see. 

The  program  here  provides  the  user  with  a  menu  to 
choose  which  data  file  the  user  wants  to  replace 
permanently.  The  user  is  again  cautioned  that  this  is  a 
serious  step  that  cannot  be  undone.  If  the  user  selected  1 
through    5,   the   program   will   give   the   user   one   more 
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Which  data  do  you  desire  to  change  PERMANENTLY? 

Data:  Data  files: 

0.  None/ f in ished  replacing  data. 

1.  Number  of  officers  at  each  assignment:  Nodes 

2.  Transfer  path  percentages:  Arcs 

3.  Assignment  tour  lengths:  Length 

4.  High  limits:  Hilimit 

5.  Low  limits:  Lolimit 

Type  your  selection  [0,1,2,3,4,51: 

Figure  3.33   Replace  Data  PERMANENTLY  Selection  Menu  Screen 

opportunity  to  change  his  mind,  and  then  replace  the  data  as 
selected  by  the  user.  The  program  then  returns  to  the 
Replace  Data  PERMANENTLY  Selection  Menu  Screen  of  Figure 
3.33  to  give  the  user  the  opportunity  to  replace  some  other 
data.  Pressing  "0"  will  cause  the  program  to  leave  this 
section  of  the  program  without  making  any  replacements. 

Current   use  of  the  program  is  now  completed  and  the 
user  is  shown  an  ending  logo  on  the  screen. 
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IV.   MAINTENANCE  OF  THE  MODEL  AND  FUTURE  DEVELOPMENT 

A.   MAINTAINING  AND  UPDATING  THE  DATABASE 

As  stated  in  Chapter  III,  there  are  six  data  files 
contained  on  Distribution  Disk  I. 

NODES. NOD 

NODEZERO.NOD 

ARCS.ARD 

LENGTH. LED 

HILIMIT.HID 

LOLIMIT.LID 

These  six  files  contain  the  default  data  the  program 
will  use  to  initialize  the  variables,  unless  the  user 
changes  the  input  data  file.  Because  data  relevant  for  the 
model  was  not  directly  available  at  the  writing  of  this 
report,  all  data  in  the  default  files  was  contructed 
somewhat  artificially,  although  care  was  taken  to  make  such 
data  reasonable  realistic.  It  is  hoped  that  this  data  will 
soon  be  replaced  by  actual  data  by  the  model's  first  user. 
The  assignment  data  that  consists  of  the  number  of  officers 
at  each  assignment  provided  In  file  "NODES"  was 
abstracted/excerpted  from  an  inventory  of  surface  warfare 
officers  for  1983,  generated  by  the  SWOTOURS  model  ( Re f . 
71.  Although  the  SWOTOURS  model  does  not  indicate  the 
number  of  officers  in  the  same  format  as  this  model, 
combining  different  outputs  of  the  SWOTOURS  model,  and 
crossing  years  of  commissioned  service  (YCS)  with  tour 
numbers,  enabled  the  author  to  fill  the  model  with 
"realistic"  data.  The  default  transfer  path  percentages 
were  generated  by  analyzing  data  from  the  SWOTOURS  model  and 
then  estimating  the  transfer  path  percentages  from  each 
assignment  in  the  network.  The  default  assignment  tour 
length   data  was  generated  by  evaluating  the  surface  warfare 
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officer  career  path  depicted  in  the  Unrestricted  Line 
Officer  Career  Planning  Guidebook  [Ref.  11  and  equating  the 
length  of  tours  described  with  the  networks  assignment  tour 
lengths.  The  high  and  low  limit  default  data  files  were 
arbitrarily  set  at  9999  and  0  respectively. 

As  discussed  previously,  the  user  can  decide  which  file 
the  program  will  use  to  initialize  the  variables,  by 
choosing  a  file  previously  saved.  The  user  can  also  change 
the  number  of  accessions,  the  individual  values  of  the 
transfer  path  percentage  variables,  the  assignment  tour 
length  variables,  and  the  high  and  low  limit  variables. 
After  making  such  changes  the  user  is  provided  an 
opportunity  to  save  those  changes  to  a  file  of  his  own 
choosing.  The  user  is  then  provided  the  opportunity  to 
replace  the  default  data  files  with  these  new  data  files  if 
he  so  chooses.  When  actual  data  becomes  available,  the 
program  itself,  can  be  used  to  update  the  above  mentioned 
default  data  in  just  that  way. 

The  only  data  the  user  cannot  change  directly  during 
operation  of  the  program,  is  the  number  of  officers  at  each 
assignment.  The  network  consists  of  eight  activities  by 
twelve  tours  resulting  in  ninety  six  assignments/nodes. 
Each  assignment  can  be  between  1  and  16  quarters  long,  thus 
requiring  one  thousand  five  hundred  and  thirty  six  data 
entries  to  fill  the  network.  Since  the  data  files  are  not 
encrypted  for  the  convenience  of  the  user,  each  file  could 
be  edited  using  any  word  processing  software  package. 
Caution:  This  is  NOT  recommended.  Hidden  editing/formatting 
commands  may  be  unintentionally  inserted  into  the  data 
files,  or  the  user  may  accidentally  violate  the  format  of 
the  data,  rendering  the  data  file  useless.  A  separate 
program  has  been  included  on  Distribution  Disk  II  called 
UPDATE.COM  to  be  used  exclusively  to  update  the  number  of 
officers  at  each  assignment  if  the  user  wishes  to  do  that. 
This  file  cannot  be  used  to  update  any   of   the   other   data 
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files,  since  It  only  formats  data  for  use  as  "NODES"  data. 
It  Is  a  somewhat  long  and  tedious  process  to  update  the  data 
using  this  UPDATE  program,  but  it  is  not  likely  that  it  will 
be  required  to  be  used  very  often. 

To  use  the  UPDATE  program,  the  user  should  simply  place 
the  "working  copy"  of  Distribution  Disk  II  into  the  drive, 
type  "UPDATE<CR>"  and  follow  the  prompts.  This  program  will 
create  a  new  file  called  "NODES. NOD"  on  the  "working  copy" 
of  Distribution  Disk  II.  In  order  to  use  it  with  the 
program  the  user  must  copy  the  new  "NODES. NOD"  file  to 
Distribution  Disk  I  using  whatever  procedures  his  operating 
system  requires.  One  example  for  accomplishing  this  task  is 
placing   the   "working  copy"  of  Distribution  Disk  I  in  drive 

A,  and  the  "working  copy"  of  Distribution  Disk  II   in   drive 

B,  and  typing  "A:<CR>".  Then  at  the  prompt  :  A>,  the  user 
should  type  "COPY  B:NODES.NOD  AcNODES.NOD" .  The  data  files 
are  not  "operating  system"  dependent,  and  the  data  files  can 
be  used  interchangeably  between  the  IBM  and  ZENITH  versions 
of  the  program. 

B.   REVIEWING  USER  DATA  FILES 

The  user  Is  reminded  that  the  program  takes  up 
approximately  58  Kbytes  of  space  on  Distribution  Disk  I  and 
the  data  files  add  another  62  Kbytes,  so  120  Kbytes  of  space 
on  the  disk  are  required  simply  to  operate  the  basic 
program.  As  the  user  operates  the  program  again,  and  again, 
It  Is  expected  that  data  files  will  be  created,  to  enable 
the  user  to  go  back  later  and  evaluate  the  results  or 
recreate  the  results.  The  distribution  disk  is  capable  of 
holding  360  Kbytes  of  files,  provided  the  user  does  not  also 
have  the  operating  system  on  the  working  copy  of  the 
distribution  disk,  in  which  there  is  approximately  350 
Kbytes  available.  Subtracting  the  120  Kbytes  used  by  the 
program  leaves  approximately  240  (or  230)  Kbytes  for  storage 
of  the  user  created  (saved)  files.   The  user  is  cautioned  to 
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occasionally  use  his  operating  system  capabilities  to  review 
the  amount  of  files  storage  area  available,  to  preclude 
attempting  to  save  a  data  file  using  the  program,  and 
failing  to  do  so  due  to  insufficient  disk  space  available. 

C.   REVISING  THE  MODEL 

This  program  was  written  and  compiled,  using  Turbo 
Pascal  Version  3.0.  The  ".PAS"  files  will  not  run  using 
earlier  versions  of  Turbo  Pascal.  This  does  not  impact  on 
the  user  since  the  ".PAS"  files  are  not  used  in  the  normal 
operation  of  the  program.  The  listing  contained  in  Appendix 
A,  contain  many  comments  to  aid  future  programmers  in 
determining  "how  an  why"  certain  procedures  perform  their 
tasks  within  the  program.  The  program  cannot  be  expanded 
beyond  eight  rows  and  twelve  columns  without  a  major 
rewrite,  but  with  some  changes  to  the  activities  labels, 
this  network  flow  model  could  be  modified  to  simulate  the 
career  paths  of  any  officer  community  in  the  Navy.  User's 
unfamiliar  with  programming  in  Pascal  and  who  do  not  have 
Turbo  Pascal  Version  3.0  or  later  to  compile  their  changes, 
are  advised  against  altering  any  of  the  programs.  The  user 
Is  reminded  that  simply  making  changes  to  the  ".PAS"  listing 
will  have  no  impact  on  how  the  program  runs,  until  the 
program  has  been  recompiled.  If  the  user  does  attempt 
modifications,  please  ensure  that  any  changes  are  fully 
documented  by  comments,  to  allow  future  users  to  review 
modifications  made  to  the  program.  The  user  is  reminded 
that  the  programs  on  the  master  distribution  disks  should 
never  be  modified.  They  are  shipped  with  write  protect  tabs 
installed,  and  these  tabs  should  never  be  removed. 

The  program  has  been  operationally  tested,  and  several 
undocumented  features  (a.k.a.  bugs)  have  been  corrected, 
doubtless  there  are  more  which  have  not  yet  been  discovered. 
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APPENDIX    A 
THE  RAM  PROGRAM  IS  CONTAINED  II  THE  DISK  FILE  'SWPftTH.PAS' 


(J 


i»«»«»»»»«»»f«»«i 


UMIIIIIIXMIII 


tttttttmtuit) 


PR08RAH  SUOPATNi 

(  This  it  the  uii  prograa*    Htrt  all  global  variables  art  defined, 
all  procedural  Art  forward  referenced,  and  all  Include  flUt  art 
called.    The  remainder  of  the  parti  that  take  up  tht  M>dtl  art 
subroutines,  called  procedures,  which  the  tain  prograa  calls  as 
necessary  to  run  the  aodel.  ) 


TYPE 


One  Dii 
Twlii' 
Tvo'Dit 
Tre"Dio" 
Tre'Dia' 
AStfing' 
STR2y= 
One "Dii 
Qne'Dia" 


Real  ■  ARRAY  [1..121  OF  REAL; 
Int  *  ARRAY  C1..12.'A'..'HM  OF  INTEGER; 
Real  ■  ARRAY  U..I2  »A'..'H'l  OF  REAL: 
RealCH  *  ARRAY  [I..I2,'A'..'HVA'..»H']  OF  REAL) 
RtalNR  *  ARRAY  U..i2,'A'..'H',l..l6]  OF  REAL) 
■  STRING  1801; 
STRING  [25)* 

StrMR  ■  ARRAY  CI.. 162  OF  STR  25; 
StrCH  =  ARRAY  [»A»..»H'l  OF  8TR.25; 


VAt 


Tour_sua:  One_Dia_Real; 

Tour  J" 

TLeagth:  One  Dii  StrNRi 

Activity:  One  Dii  StrCH; 

HiLiait, 

LoLiait, 

Teip  Billet  Total, 

Billet .Total:  TwolDia.Real; 

New  Length, 

Qld'Length, 

Billet  Length:  Two  Dia  Int; 

Transfer  Path:  Tre'Dia  RealCH; 

Path  total. 

Tetp'Billet  Node, 

Billet  Node:  Tre  Dia  RealKR; 

Accessrons, 

Teapcount, 

NuaoerSeconds, 

i; 

Total, 

NRQuarters, 

NRYears, 

Quarter. 

QtrCount, 

YrCount:  IHTE6ER; 

J; 

Answer, 

Choice, 
Reinit, 


label  for  which  tour  ) 

label  for  length  in  quarters) 

label  for  activity  ) 

•ai  nutber  of  officers  by  billet  node  ) 

■in  nuaber  of  officers  by  billet  node  ) 

temporary  nuaber  at  each  billet  node  ) 

sua  of  officers  at  each  billet  node  ) 

new  length  of  tour  (to  bt  changed  to  )  ) 

old  billet  length  (for  record  purposes)  ) 

actual  billet  length  ) 

percent  of  officers  to  be  transferred  ) 

percent  totals  of  transfer  paths  ) 

temporary  nuaber  of  officers  at  each  node  ) 

nuaber  of  officers  at  node  by  quarters  left  ) 

nuaber  of  officer  accessions  ) 


{  tour  nuaber  froa  1  to  12  ) 

(  quarter!  left  froa  1  to  16  ) 

{  how  aany  quarters  aodel  is  to  run  ) 

(  value  established  by  user  ) 

(  counts  froa  1  to  4  > 

(  variable  keeps  track  of  I  of  iterations  ) 

(  variable  keeps  track  of  nr  of  years  ) 

(  used  for  activity  ) 

{  used  for  activity  ) 


{  used  in  years  to  indicate  reinitialize  ) 
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Skip, 

Fir  it, 

lasti  CHARi 

Stop  calc  A, 

Stop  calc  T, 

Finer  totals, 

Violation, 

Tooaany, 

Toofev, 

Change, 

Initial, 

M!  finished, 

Finished, 

Ready, 

Replace, 

Review, 

Ok  answer, 

Qk"choice:  BOOLEAN j 

File.var, 

Output  naue, 

Nodedafa, 

Arcdata, 

lengdata, 

Hill data, 

Lolidata:  Str.25; 

Choice.zero, 

Chg  var  :  AString; 

TenporaryiREAU 

Oata.fi let  TEXT; 

{.pa)<  forward  references  for  all  procedures  ) 

PROCEDURE  Logo;  FORWARD; 


{  answer  to  choice  of  display  ) 

{  Um4  to  input  info  to  Correct  choice  ) 
(  (had  to  input  info  to  Correct .choice  ) 

<  Unit  warning  boolean  ) 

(  if  liniti  violated  > 

<  hi  Unit  ) 
{  lo  Unit  ) 
{  desire  to  change  ) 
{  initialize  values  ) 
{  completely  finished  with  prograi  } 
(  finished  with  particular  section  ) 

(  activates  replacent  of  initial  data  ) 

{  look  over  display  selections  } 

{  Used  in  correct  answer  procedure  ) 

{  Used  in  correct "choice  procedure  ) 


{  ) 

<  these  are  all  > 

<  used  in  data  file  > 

<  creation  and  transfer  ) 

{  Oata  file  variable  nates  } 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


Dirltst;  FORWARD) 
Initialize  ;  FORWARD: 
Initialize  nodes  ;  FORWARD; 
Initialize  arcs  1  FORWARD; 
Initialize'lengthsj    FORWARD; 
Initialize'hilinits;  FORWARD; 
Initial ize'lol iii ts:  FORWARD 
Initialize'labels;  FORWARD; 


PROCEDURE  Selection  senu;  FORWARD; 
PROCEDURE  Review  selections  :  FORWARD; 
PROCEDURE  Calculations  ;  FORWARD: 
PROCEDURE  Ask.for .years  ;  FORWARD; 

PROCEDURE  All  billet  totals:  FORWARD; 
PROCEDURE  Billet  totals  (VAR  Tt  INTEGER; 

VAR  At  CHAR       );  FORWARD] 
PROCEDURE  High  warning;  FORWARD; 
PROCEDURE  Low.warning;  FORWARD; 

PROCEDURE  Changes;  FORWARD; 
PROCEDURE  Change  accessions;  FORWARD; 
PROCEDURE  Change'arcs;  FORWARD: 
PROCEDURE  Change-length:  FORWARD; 
PROCEDURE  Change'hilinits;  FORWARD; 
PROCEDURE  Change^ oli nits;  FORWARD; 

PROCEDURE  Dchoices;  FORWARD; 
PROCEDURE  Dchangesi  FORWARD] 
PROCEDURE  Fron  pathicrn;  FORWARD; 
PROCEDURE  To.pathscrn;  FORWARD; 

PROCEDURE  Dttp.assign;  FORWARD; 
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PROCEDURE  Disp  tour*)  FORWARD: 
PROCEDURE  Oispjwths  fro*i  FIJRWARD; 
PROCEDURE  Disp  utht'to;  FORWARD) 


paths  toi 


PROCEDURE  Disp.billefsj  FORWARD; 

PROCEDURE  Node  dune;  FORWARD; 

PROCEDURE  Arc  Swap;  FORWARD: 
PROCEDURE  length  dun*;  FORWARD; 
PROCEDURE  Hilii  3<iapj  FORWARD; 
PROCEDURE  LolinjJunp;  FORWARD) 

PROCEDURE  Invalid  answer:  FQRUARO; 

PROCEDURE  Wrong  answer)  FORWARD) 

PROCEDURE  Correct  choice  (VAR  Choice.  First.  last:  CHAR; 

VAR  Ok  choice:  BOOLEAN))  FORHARD? 
PROCEDURE  Correct  answer  (VAR  Answer:  CHAR: 

VAR  Ok  answer:  BOOLEAN);  FORWARD; 
PROCEDURE  Another  ctunge;  FORWARD: 
PROCEDURE  Strip  (VAR  File  van  STR  25):  FORWARD; 
PROCEDURE  Blaakline  (I,  Yf  IMTESERl;  FORUARO) 

PROCEDURE  Save  data  ;  FORWARD: 
PROCEDURE  Replace.data;  FORWARD) 

(.pa)  {  link  up  all  include  files  ) 

($1  zeaUTlLS  )  (t  This  reads  'iitUTILS'  t) 

(I  in  IBM  PC  version        t) 
(II  Logo) 

($1  lnitdata) 

($1  SelKtio) 

(II  Calculat) 

(II  Totals) 

(II  ChedaU) 

(II  Screens) 

(II  Displays) 

(II  Datadttp) 

(II  Answer*} 

(II  Stordata) 


(.pa) 

{    The  beginning  of  the  MAIN  Progran    ) 

BE8IN 

Accessions  i«  350) 

Tenpcount  :=  0; 

NRYears  !■  0) 

NROuarters  »«  0) 

Quarter  :=  0) 

YRcount  :s  0 

Review  :=  false)   (  to  skip  sanple  selections  the  first  tine  ) 

Initial  i=  true;  (  to  initialize  the  data  the  first  tine  ) 

Rev  Length  [  T,  A  1  !■  Billet  Length  I  T,  A  )j 

Logo) 

IF  Initial  THEN 
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mm  (  initial  if  ) 

Initialize 

Chang*  accasiionsi 

Initial  i»  falsai    {  to  pravant  progran  frot  reinitializing} 

ENS)  (  initialize  if) 

REPEAT      (  repeat  loop  until  allfiniib*d  ) 
All  finished  j=  falsa}    (  to  ensure  that  ve  ara  not  all  finished  ) 
Ready  t«    falsa}     {  establish  that  va  ara  not  ready  for  calcul  > 
Chang*  i"  falsa)     {  establish  that  initially  va  do  not  change  ) 

IF  NOT  All. finished  THEN  SalKtionjeenuj 

UNTIL  AU.finishad  ■  true} 

Save.data; 

CI  ear  screen} 

SotoRC  (  12,  13); 

Color  (  white,  ■agenta); 

NRITELN  (»  Have  a  nice  day!  •)» 

Color  (  yellov,  blue)} 

ENS.    (  SHOPATH  tain  prograt  ) 
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APPENDIX  & 
THE  FOLLOWING  PROCEDURES  ARE  CONTAINED  IN  THE  DISK  FILE  "ZENUTILS. PAS" 

ixxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XtXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

{XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
Xt  XX 

XX  MISCELLANEOUS  UTILITIES         XX 

XX  H/Z-lOO  Version  I* 

XX  XX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

{  This  Ml*  contains  the  following  procedures 
specifically  written  to  be  Heath/Zenith 
compatible 

CI  ear  Screen 

Color 

6otoRC 

Center 

Tab 

GetOneChar 

Pause 

Strip 

Blank line 


type 

ScreenColor  =  (Black, Blue, Red, Magenta, Green, 
Cyan, Y*l low, HhiteJj 

procedure  ClearScreen; 

(  This  procedure  siiply  clears  the  screen  ) 
begin 

ClrScr; 

end;    (ClearScreen) 

(XUXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

procedure  Color (Foreground, Background  :  ScreenColor); 
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{This  procedure  sets  the  Screen  Colors  according  to  the 
requested  colors  sent.  Colors  are:  Black, Blue, 6reen 
Cyan, Red, Magenta, Yellow, White  ) 

begin 

vrite(chr(27).'i',chr(ord(Foreground)+4B), 

chr(ord (Background) +48) )j 

end;  (Color) 

{xxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxtxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxx) 

procedure  6otoRC(Row,  Colum  :  integer); 

{This  provides  direct  cursor  addressing.  There  is  a  built- 
in  function  SotoXY  which  asks  for  XY  (or  Col-Row)  order.  ) 

begin 

if  Row  >  24  then  Row  :=  24; 

if  Colum  )  80  then  Coluan  :=  80; 

6otoXY(Coluin,Row); 

end;  {6otoRO 

{XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

procedure  Centerdine  :  integer;  Message  :  AString); 

{This  procedure  will  center  the  Message  in  80  coluins 
on  the  screen.  Must  pass  lessage  and  line  it's  on) 

var 

Count  :  integer; 

begin 

if  Length (Message)  >79  then 

begin 

Go;oRC(Line,l); 

wr i t el n (Message); 

end 

else 

begin 

6otoRC(Line,((B0-Length(Message))  div  2)); 

write(Message); 

end;  {begin-else} 
(end  if-then-else) 

end;  {Center) 

{XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

procedure  6et0neChar(var  User Answer  :  char); 

{This  procedure  gets  exactly  one  character,  converts  to 
Upper  case  (if  needed)  and  displays  it  on  screen    ) 
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begin 

read(Kbd ,  Lfs*r  Answ*r ) : 
UserAnsver  i=  UpCase(UserAnsver); 

end;  {6et0n*Char> 

{xxuxttxxxxxxxxxxxxxxxxxxxxtxxxxxtxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xtxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx) 


procedure  Pause; 

{  This  routine  lerely  vaits  for  any  key;  if  want  to  check 
for  Control  C  for  exit,  use  Paused  below  } 

var 

Any Key  :  char; 

begin 

writeln: 

6otoRC(23,23); 

writeCPress  any  key  to  continue  ...    '); 

GetQneChar(AnyKey); 

end;  {  Pause  ) 

{XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXtXX) 


PROCEDURE  Strip  i 

{  this  procedure  strips  the  filetype  froi  a  filename  ) 

TYPE 

AString  ■  STRIN6  [801; 

VAR 

A, 

E:  ASTRING; 

h 
Y 

Zi  INTE6ER; 

BEGIN 

I  :--  LENGTH  (File  var); 

Y  :=  X-3' 

DELETE  (File_var,Y,4); 

END; 

iXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

«ttmm«««mim»»«»i»«mt««m»t»»«t»»ti»»»»«»«*i) 

PROCEDURE  Blankline; 

{  This  procedure  blakns  out  a  line  given  row  and  coluin  nuiber  ) 
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BE6IN 

GotoRC  (X,  Y); 
WRITE 

(' 
SotoRC  (X,Y)j 

END;  {  Blanklin*  ) 
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APPENDIX    C 

THE  FOlLOUnH  PROCEDURES  ABE  COKTAMO  IN  THE  DISK  FILE  *  I  MOT  OS.  PAS' 

xxxxxxxxttxxxxxxxxxxxxxxtxxxxxmxxxxxxTXXXXxxxxxxxxxxxxxxtxixxxxixxxxxxxxxx 

ttt> 


{ 

XX  XX 

XX  MISCELLANEOUS  UTILITIES         St 

It  IBM  VERSION             It 

It  It 

tttttttmttttttittttttttttttttttttttttttttttttttttt) 

(  This  file  contains  the  following  procedures 
specifically  written  to  be  IBM  compatible 

CI  ear  Screen 

Color 

SotoRC 

Center 

Tab 

SetOneChar 

Pause 

Strip 

Blankline 

) 

const 

HTab    i  Char  «  AIj 

Bell    :  Char  =  *6j 

IFeed  i  Char  ■  AJj 

Rttsrni  Char  =  *flj 

{XJXXXtXXXUXXXXXXXXXXXXXXXXXXXXXttXXXXXtXXXXXXXXXXXXXXXXIXXXXXXXXXXXXXXXXXXX 

xxxxxxxnxxxxxxxxxxxnxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxj) 

procedure  ClearScreenj 

(    This  procedure  siaply  dean  the  screen    } 
begin 

ClrScr 
end;    (ClearScreen) 

{itnttttintmtttittmtttttititttitttttttttttttttttttitttitttttttiiitttttt 

xxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxjxxxxxx:} 

procedure  Color (Foreground, Background  i  Integer); 

(This  procedure  sets  the  Screen  Colors  according  to  the 
requested  colors  sent.    Colors  arei  Black. Blue. Green 
Cyan. Red. Nagenta.Yellov.Uhite. Gray. Light  Blue. Light  Sreen, 
Light  Cyan, Light  Red, Yellow, High  Unit*  } 

begin 

Textbackground(Background)| 
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Tricolor  (For  egroond )  j 
end;  (Color) 


-I I.i|...i.1..i.,m1||MhiMiiIIIMMI)<Ii.I|.|<IM<M.IHIIM.<|.(H 


procedure  SotoRCfRow,  CoIum  t  integer )j 

(This  provides  direct  cursor  addressing.  There  is  a  built- 
in  function  6otoXY  which  asks  for  XY  (or  Col -Row)  order.  ) 

begin 

if  Rov  >  24  then  Rov  :=  24; 

if  Colunn  >  80  then  Co1«m  i«  80j 

6otoXY(Coluon,Rw)j 
end;  (6oto8C) 

itttttttmnttmttntmtuttttmtttntttmtmutmmtummmtmt 

mtmtmtmtmmninmnumtntmmmimmmmmtmmmi) 


procedure  Center (Lino  »  integer;  Hostage  I  ASt ring)} 

(This  procedure  will  center  the  Message  in  80  colunn 
on  the  screen.    Kust  pass  tessage  and  line  it's  on) 


var 

Count  t  integer^ 

begin 

if  Length (Message)  >7S  then 

begin 

6otoRC(Line,i)| 

vritein(Hessage)) 

end 

else 

8o?oRC(Line,((82-length(rlessage»  div  2)); 

vrite(Nessage)| 

end;  (begin-else) 

(end  i f-then-else) 
end;  (Center) 

ittmtmtmnmmmtmmmmmtmmmntmttmmmmmm 

mxtmtxtmmtinnmmtmxtmumimxmimiiimntmmmmi) 

procedure  Tab(NuiberSpaces: integer); 

(  This  procedure  toves  the  cursor  over  the  appropriate 
mmber  of  spaces  requested  ) 

var 

Count  t  integer | 

begin 
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for  Count  «■  1  to  NutbtrSpacM  do 

ktfta 

wIW<»  ») 

♦ndj    (btgin) 

(tod  for) 
widj    <b«fin) 


immmmmmmmmmmmmmmtmmmmmmmmmm 


,,,...,,,  t»  ,,>  >>  .,>>.»>,,>,,  .n,. ,,,  ,,.,,,,> 


■rocodur*  SotOntChor  (vor  UttrAntvor  i  ch«r)j 

(Tbii  proctdora  oats  »x«tly  on*  characUr,  convtrtt  to 
Upp«r  cat*  (if  iutd*d)  mo1  displays  it  on  tman        ) 

bofia 

r*ad(Kbd,lharAnmr)t 
Utar  Anwar  :»  UpCata(tharAMvar)) 
widj  {GatOnaChar) 

ntttmmmtrmtmmmttmmimmmnttmmmmmmtnnn 


procadora  Paus*{ 

s  routina  i 

for  Control  C  for  aiit,  us*  Paotafi'balov  ) 


(  This  routina  oaraly  vaits  for  any  kayi  if  vant  to  chack 

8  ' 


var 
AayKay  t  char; 

•ogin 

vritalni 

Tab(23)[ 

VritaCPms  any  kay  to  continuo  ...    '); 

8at0naChar(AnyK*y)| 

and;  {  Pauta  ) 

{ttmttttmmmmuMtttmttmttmtutmttttttttttmtttmmttM 

«tm««««m«««««»tm««n«««»»««nn»««a«««»«»i 

PROCEDURE  Strip  j 

{  This  procadura  ratovat  tho  filatypa  froo  a  filanata  > 
TYPE 
AStrinj  =  STRING  [801; 

m 

El  AST8IN6) 
*i 

2:  INTEGER; 

BEGIN 

I  i*  LENGTH  (Fila  var); 
Y  i»  1-3} 
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•BITE  <FiU_v«r,Y,4)j 


u 


mxmmxxmttm 


.,•»*.,«.»,., 


i .» ... t ,.».». , 


PROCEDURE  Bluklint) 

{  TMt  procwtor*  blanks  out  an  Mtir«  lint.    Hust  pass  rov  and  colum  ) 
BC8II 
SotoRC  (X,  Di 

write 


c 

totoRCd,  Y>| 
ENOi  {  Blanklint  ) 
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APPENDIX  D 
THE  FOLL0HIN8  PROCEDURES  ARE  CONTAINED  IN  THE  DISK  FILE  'L060.PA8' 

{ttmttmtntnttnttmtmtmmmmtnmmtmtttmtmtmmtttt 
mtttmttmtittmuuummmmnttmtmmmmtumtuttttttm) 

{    This  file  contains  the  procedure 

Logo 
) 
PROCEDURE  Logo; 

{  This  procedure  calls  up  the  initial  screen  logo.) 

BEGIN 

ClearScreen; 

Color  (white, blue); 

ClearScreen; 

Color(vhite,  tagenta); 

Center ( 10,' del coie  to  SHOPATH'): 

Center (12, 'The  Surface  Unfit*  Officer'); 

Center (14. 'Career  Path  Hodel'); 

Center  (18, 'Version  1.0');  (  Be  sure  to  change  version  nuaber  ) 

Center  (20, '27  Septeiber  1985'); 

Color (white,  blue);  (  and  date  if  todlfications  are  tade  ) 

SotoRC  (23.  1); 

DELAY  (1500); 

END;  (Logo) 
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APPENDIX  E 
THE  FOLLOWING  PROCEDURES  ARE  COVTAIKEO  IN  THE  DISK  FILE  "IMTIMTA.PAS* 

(xtnuttmttttmmxtuttmtxnmuttttiimnmtitxtttttmtmumn 

tmttt) 


HHXIMtlUlliiiIMM 


{  This  file  contains  the  fol loving  procedures 

Initialize 
Initialize  nodes 
Initialize'arcs 
Initialize'lengths 
Initialize  lai>*is 
Initialize~hilinttt 
Initialize'loliuits 
DirList 


PROCEDURE  Initialize! 

{  This  procedure  provides  the  displays  and  nechanics  to  call  up 
the  data  initialization  procedures  } 

m 

Ok:  BOOLEAN: 
I,Y  :  INTEGER) 
Default  :  Sir ,23j 

BEGIN 

Finished  1=  false] 

IF  Initial  THEN 

BEGIN 

Nodedata  :=  'Nodes' ; 

Arcdata  i«  'Arcs'; 

Lengdata  s=  'Length': 

Hil'data  i«  'Hilitit'j 

Lolidata  :=  'Lolinit'; 

REPEAT  (  until  finished  > 

Chg_var  := 

'Do  you  vant  to  change  the  input  data  files  froi  those  listed  belov?'; 

Choice. zero  :*'No  changes  vanted/finished  changes.'; 

Bchanges; 

IT  Choice  -  '0'  THEN  Finished  :=  true 

ELSE 

BEGIN 

CI  ear screen: 

fiotoRC  (5,  I); 

URITELN  ('    Reteiber,  you  nust  choose  a  data  file  that  you  have  '){ 

URITELN  ('  previously  saved.    Those  are  listed  belov.'): 

URITELN} 

Color  (red,  vhite  ); 

Dirlist; 

Color  (vhite.  blue): 

BRITELNiNRITELNi 

GetoRC  111,  IS): 

VRITELN  (»     Enter  the  input  filenaue')| 
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Color  (blue,  white); 

SotoRC  (13,  15)i 

WITQJ  ('  typed  exactly  at  listed  above,'); 

Color  (vfcite,  blue); 

SotoftC  (15,  15); 

NR1TELM  ('that  you  choose  to  uset  '); 

REPEAT     {  Ok  true  ) 

IT  Choice  »  »1«  THEM  Default  t*  'Nooks'; 

IF  Choice  ■  '2'  THEN  Default  :«  'Arcs': 

IF  Choice  =  »3»  THEN  Default  I*  'Length'; 

IF  Choice  -  '4'  THEN  Default  t-  'Hllliit'; 

IF  Choice  «  '5'  THEN  Default  l»  'Lolinit'; 

SotoRC  (20,13)1 

KITE  ('Type    '.Default,'     if  you  want  to  exit  back  to  mimi.'); 

Blankline  (IS.  40); 

6otoR€  (15,  40); 

READ  (File.var); 

IF  Choice  >  '1'  THEN  File  var  J-  CONCAT  (File  var, '.nod') 

IF  Choice  ■  '2'  THEN  File'var  «■  CONCAT  (Flle'var  ».ard») 

IF  Choice  ■  '3>  THEN  File" var  |"  CONCAT  (File'var, Med') 

IF  Choice  ■  '4'  THEN  Flle'var  t-  CONCAT  (Flle'var  '.hid') 

IF  Choice  *  '5'  THEN  File>r  :«  CONCAT  (File>r,'.lod') 

ASSIGN  (Data  file,  File  var)t(Thii  procedure  deterilnes  if  there  ) 
(II-)  RESET  ?Data  file)"{$l*);{is  such  a  file  at  selected  by  user.) 
Ok  :>  (IOresult  ='0>; 
Strip  (File.var); 

IF  NOT  Ok  THEN 
DE8IN 

Blankline  (24,  l)i 

Color  (white,  red): 

KITE  ('  Cannot  find  file  ',  File  var,'  pleaie  try  again.'); 

DEUY  (1500); 

Color  (white,  blue); 

Blank  line  (24,  1); 

END;  {  Ok  10  result  if  ) 

UNTIL  Ok  ■  True; 

IF  Choice  -  M'  THEN  Nodedata  i-  File  var; 

IF  Choice  ■  '2'  THEN  Arcdata    !■  File'var; 

IF  Choice  *  '3'  THEN  Lengdata  i«  File'var; 

IF  Choice  >  '4'  THEN  Hi  1 1 data  t-  File'var; 

IF  Choice  =  '5'  THEN  Lolidata  :=  File>ar; 

END;  (  if  choice  *  0  ) 

UNTIL  Finished  *  true; 

Initial lie.labelti 

Initializejtodes; 
Initial iie.arct I 

Initialize  lengths; 
tnitialize"hillaits| 
Initialize'loliuits; 
Final  totals  s=  true; 
All  billet  totals; 
Blankline  (24.1); 
END;  (if  Initial  ) 

IF  NOT  Initial  THEN 
BE6IN 
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REPEAT  (  Until  finished  true  > 

Cht  var  i>  'Which  data  do  yon  desir*  to  reinitialize?'; 

Chok*_z*re  i«  'Hon*/ finished  rtinitializirm  data.'; 

BckaifHi 

IF  »T  Ok.choic*  THEM  Initializ*; 

IF  Choic*  «  '0'  TNQI  Finisbri  :»  tru*; 

IF  Choice  ■  »P  THEN 
BESU 


Arcdata  (=~C0HCAT  (Arcdata.'. ard' )« 
Lenadata  :=  CONCAT  Clengdata.'.ledh; 
Hilidata  :a  CONCAT  (Hilfdita  '  hi*') 


Initializejtodes; 

* 

A1 
Hilfdata  :»  CONCAT  (Hi If data  '.hid') 
Lolidata  i«  CONCAT  (Lolidata,  Mod'); 
ENS)  {  If  choic*  1  ) 

IF  Choice  ■  '2'  THEN 

BE8IR 

Initialize  arcs! 

Nodtdata  «■  CONCAT  (Nodedata,'.nod'); 

Lenodata  I-  CONCAT  (Lenodata,  Med'); 

Hilidata  i«  CONCAT  (Hilidata, '.hid' ); 

Lolidata  i>  CONCAT  (Lolidata,'. lod'); 

END}  (  If  choic*  2  ) 

IF  Choic*  =  '3'  THEN 

BEGIN 

Initializ*  lengths; 

Nodtdata  |i  CONCAT  (Nodedata,'. nod')j 

Arcdata  :=  CONCAT  (Arcdata,'. ard' )i 

Hilidata  j=  CONCAT  (Hilidata,'. hid'); 

Lolidata  i=  CONCAT  (Lolidata,'. lod'); 

END;  (If  choic*  3  ) 

IF  Choic*  *  '4'  THEN 
BENIN 

Initialize  hiliaits; 
Nodedata  :=  CONCAT  (Nodedata, '.nod'); 
Arcdata  :=  CONCAT  (Arcdata. '.ard'); 
Lenodata  :=  CONCAT  (Lenodata, '.led'); 
Lolidata  :=  CONCAT  (Lolidata, Mod'); 
END;  (If  choic*  4  ) 

IF  Choic*  =  '5'  THEN 

BE8IN 

Initializ*  lolinits; 

Nod*dat*  J=  CONCAT  (Nodtdata, '.nod'); 

Arcdata  :=  CONCAT  (Arcdata. '.ard'): 

Lenodata  :=  CONCAT  (Longdate,  Med'); 

Hilidata  :=  CONCAT  (Hilidata, '.hid'); 

END;  (  if  choic*  5  ) 

UNTIL  Finished  =  true; 

Final  totals  i"  true; 
All  billet  totals; 
Clearscreen; 

ENS;  {  if  NOT  initial  ) 

END;  (  Initializ*  procedure) 

{tumnttxMtmmttttttntmmmmttniitnumuxttuttmmitm 
mtmtnttmmmmtmttmtmmttmntnmixttnttmmmmtnu 
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PROCEDURE  lnitialize_node§i 

<  This  procedure  reads  assignaoat  data  frot 
a  data  file  on  th«  disk  ) 

KSU 

Blank line  (23,  10); 

GotoRC  (23.  1)1 

KITE  ('    Initializing  tht  nuaoer  of  officers  at  nodes  \ 

".'uflini  tit*  filai  »,  todedata)) 
lodadata  »-  CONCAT  (Nodedata,'.nod')| 
ASSX8II  (Data  file, todedata); 
RESET  (Data.fi  U)  | 

WILE  NOT  EOF  (Data  Hit)  DO 

DE6IN 

READ  (Data.file,  T  >; 

IF  NOT  E0F(Data  file)  THEN 

BEGIN 

READ  (Data  file,  Skip)) 

READ  (Data'file,  A  ); 

READ  (Data'file,  Skip); 

READ  (Data'file,  L  )j 

READ  (Data'file.  Skip)] 

READLN  (Data  file,  Billet  node  (  T,  A  ,  I  ))\ 

END;    (  if  not  end  of  file  ) 

ENO;  (  end  while  not  end  of  file  ) 

CLOSE  (Data.file); 

END)    (  Initialize  node*  ) 

uxxxmxxxxxxxxxxxmttxxxxxxxttxxxxxxxxtxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

(.pa) 

PROCEDURE  Initialize.Arcfi 

(  This  procedure  reads  transfer  path  percentage*  froa 
a  data  file  on  the  disk  ) 

VAR 

T, 

Li  MTE8ER; 

A, 

Ki  CHAR; 

Data.file:  TEXT; 

BE8IN 


Blankline  (23,  10); 

OotoRC  (23.  1); 

WRITE  ('    Initializing  the  transfer  path  percentages  », 

''/using  the  filet  ', Arcdata); 
Skip  i-  '  'i 

Arcdata  :=  CONCAT  (Arcdata,  ».ard')| 
ASSIGN  (Data  Hle,Arcdata); 
RESET  (Data  Tile) 
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WILE  NOT  EOF  (Data  flit)  N 

BEGIN 

READ  (Data.fileJ); 

IF  NOT    EOT (Data  file)  THEN 

BEGIN 

REM  (Data  fiU,  Skip); 

REM  (D«ta"flle   A)| 

REM  (bta'file,  Skip)) 

REAO  (Data'file   K)i 

REAMJ  (Dafa  file.Transfer  Path  t  T,  A,  K  )); 

EDO;    {  end  U  not  end  of  Tile  > 

END;    {  end  whiU  not  end  of  fil*  ) 

CLOSE  (Data.filo)| 

END;    {  Initialize  arcs  } 

{ttmntntttttnttttxttttmiumtxttmttuttttmxttittnttttttttttttttt 

ttmmumttttmttntttttttmmmmttmtmtmtttttnmtmtttmt) 

<.pa) 

PROCEDURE  Initialize.lengths; 

<  This  procedure  reads  the  assiqno*at  tour  Unqth  data 
froa  a  data  file  on  the  disk  5 

m 

Ti  INTE6ER| 
At  CHAR) 
Data.filet  TEXT) 

BENIN 


Dlanklino  (23.  10)  j 

SotoRC  (23,  1); 

URITE  ('  Initializing  assignment  tour  lengths  using  the  files  '.  Lengdata); 

lengdata  :=  CGNCAT  (lengdata.  '.led'): 

ASSIGN  (Data  file,  lengflata); 

RESET  (Datajile)j 

WILE  NOT  E0F(Data  file)  DO 

BE61N 

READ  (Data.file,  T  ); 

IF  NOT  E0F(Data  file)  THEN 

BE6IM 

READ  (Data  file,  Skip); 

READ  (Data'file,  A  ); 

REAOLN  (Dafa  filel8iilet  length  (  T,  A  1); 

END|  fend  if "not  end  of  Tile  ) 

END;  (  end  vhile  not  end  of  file  > 

CLOSE  (Data.file); 

END;    <  initialize  lengths  ) 

immtntmmtmttmttmntmtmttttmttttnutmtttttttmttttut 

mnunmttmmmntmnnttmmtttwtitmimnxttummmnn) 

(.pa) 
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PROCEDURE  InitializtJaotU; 

(  Tills  oroctdurts  tstablithts  tht  ditpUy  laatlt  for 
tours,  activities,  and  quarttrs  Uft  > 

nil 


Tour  ID 

Tour  (21 

Tour  133 

Tour  (41 

Tour  [SI 

Tour  (SI 

Tour  T7] 

Tour  (81 

Tour  [91 

Tour  (10) 

Tour  (111 

Tour  (121 

Activity 

Activity 

Activity 

Activity 

Activity 

Activity 

Activity 

Activity 

Tltngth 

TUngth 

Tltngth 

TUngth 

Tltngth 

Tltngth 

TLtngtu 

TUngth 

TLtngtn 

Tltngth 

Tltngth 

Tltngth 

Tltngth 

Tltngth 

Tltngth 

Tltngth 


.'i, 


'First  Tour 
'SkotkI  Tour  '; 
'Third  Tour  't 


■  'Fourth  Tour  '; 

■  'Fifth  Tour  ') 

>  'Sixth  Tour  'j 

■  'Stvtnth  Tour  '; 

>  'Eighth  Tour  ») 
*  'Ninth  Tour  'i 
:■  'Ttuth  Tour  ') 

:=  'Eltvtnth  Tour  'i 
:=  'Tvtlfth  Tour  »j 
I  'A'  )  S*  'Prof  Trng  '| 
1  ««  'Prof  Educ  »; 
1  !■  'UithDC  ': 
1  i>  'Short  (COWS)  ') 
(  'E'  1  i=  'Flttt  Unit  >j 
(  »F'  1  :>  'Afloat  Staff  '{ 
)  :=  'Short  (OUTUS)  ;i 
)  :•  'Stfaration  ') 
'  with    1  qtr    Uft'i 
♦ft  ' 


I  'I' 
t  »C» 
(  »0' 


I  '6' 
(  'H' 
1  ]  l" 


)  i' 
)  !■ 


-  i 


2 
3 
4 
5 
6 
7 

8  I  I" 

9  )  i* 

10  )  i» 

11  )  := 

12  I  i> 

13  )  t- 


)  i- 
)  I' 
1  :« 
) 


with    2  qtrs  ltit  '; 
with    3  qtrs  Uft') 
vith    4  qtrs  Uft' 
vith    5  qtrs  Uft') 
vith    6  qtrs  Uft'; 
vith    7  qtrs  Uft'i 
vith    8  qtrs  Uft'; 
vith   9  qtrs  Uft'i 
'  vith  10  qtrs  Uft'; 
'  vith  11  qtrs  Uft'; 
'  vith  12  qtrs  Uft'; 
'  vith  13  qtrs  Uft'} 

14  1  i»  »  vith  14  qtrs  Uft') 

15  ]  :=  '  vith  15  qtrs  Uft'; 
IS  1  i-  '  vith  16  qtrs  Uft' 


END)  (  Initialize  labtls  ) 

ittntmmttttttutmxMtitmtttttimtiMtttttttttitmtmuuixiiut 

mtttxttxtmmmttnxmnnmutttttnttxttmttutnttxttmmxttmt) 

(.04) 


PROCEDURE  Initialize.hilitits; 

(  This  proctdurt  rtads  high  liiit  data  frot  a  data  filt  on  tht  disk  ) 

VAR 

Ti  INTEGER; 
at  CHAR) 
Data.fiiti  TEXT: 

BEGIN 

Blanklint  (23.  10); 
BotoRC  (23.   1): 
KITE  ('    initializi 


ng  tht  high  Units  using  tht  filt:  ',  Hilidata)  ; 
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Hilidata  «-CONCAT  (Hilidata.'.hid'); 
A68I6N  (Data  fiU,  Hilidata)} 
RESET  (Deta.Tile)j 

WILE  HOT  EOFtData  liU)  BO 

BE8IM 

REM  (ttUJUt,  T  )| 

IF  NOT  EQF(Data  fiU)  THEN 

BC6IH 

READ  (Data  file,  Skip)) 

REM  (Data'file,  A  )} 

READ  (Oata'file,  Skip)} 

REABLN  (Data  file,  HiLitit  [  T,  A  )); 

EM;  (  end  iT  not  end  of  Hit  if    ) 

OfD|  (  end  while  not  EOT  loop  ) 

CLOSE  (Data.fi U) j 

END}  {  Hiliiit  procedure  ) 

{ttntmttuMUMtmttnmntmmtmtutttnntttMttmtmttttm 
mmnnmtmtnntmtnttittnxmtmntmnnmmmmtmmmt} 

(.pa) 

PROCEDURE  Initialize.loliaits; 

(  This  procedure  reads  lov  liait  data  frot  a  disk  file  ) 

VAR 

Ts  INTE6ER} 
At  CHAR: 
Data.fliet  TEXT} 

DE6IN 

Btankline  (23.  10); 

6otoRC  (23.  i); 

VRITE  ('    Initializing  Lov  Li  aits  using  the  file:  '.  Lolidata); 

Lolidata  i  =  CONCAT  (Lolidata,  Mod')} 

ASSI6N  (Data  file,  Lolidata)} 

RESET  (Oata.Tile); 

WILE  NOT  EOFtData  file)  DO 

BE6IN 

READ  (Data.file,  T  ); 

IF  NOT  £0F(Data  file)  THEN 

BESIN 

READ  (Data  file,  Skip)} 

READ  (Data'file,  A  )( 

READ  (Data'file,  Skip); 

READLN  (Dafa  file,  Loliiit  I  T,  A  ))} 

END;  (  end  iT  not  end  of  file  ) 

END;  (  end  while  not  end  of  file  ) 

CLOSE  (Data.file); 

END;  (  Loliiit  procedure  ) 

{ttntmmtmtmtmtmttutttttttmtttmmtttttttttmtttttttttnttt 

xnmtmtmnxmtiimntntnmtmimttmmnntmnnmmmttt) 
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{.p*} 


NOCOK  m 


This  it  a  siople  progr  ao  to  lift  out  the  directory  of  tho 
current  (logged)  drive  in  accordance  with  filetype  choson. 
MODIFIED  BT  RBA    ) 


type 


■  imy  I  1..12  1  of  Chart 
>  string C  20  1| 


Charl2arr 
8trlng20 
RegRec  ■ 

record 
AI,  BX,  CX,  DX,  BP,  SI,  DI,  DS,  E3,  Flagf  t  lntegerj 

»nd| 


var 


5?r 

Niffc 
NaoR 

I,  Y,  Error,  I 


t  RegRec  { 

1  array  t  1..43  1  of  Byte| 
l  Charl2arrj 
>  Striag20; 
:  Integer; 


begin  (  Mif  body  of  prograo  DtrList  ) 
FillChar(DTA,SizeOf(l>TA>,0) 


riiicnar(DTA,siz«Of(BTAK0)| 

FlllChar (task, SizeQf (Mask), 0)j 


{  Initialize  tho  DTA  buffer  ) 
(  Initialize  the  aaik  ) 

FillChar(Ua«RiSiztOf<Mat<)iO)i  {  Initialize  tho  file  naao  ) 

Regs.AI  I-  ftAOOl  (  Function  uiod  to  set  tht  DTA  ) 

Regs.DS  I"  Sog(DTA); 
Regs.DX  t=  Qfs(DTA) 


{  store  the  parameter  seasons. in  DS  } 


HSDof(Regs); 
Error  i>  0| 


{ 

{  Sot  DTA  location  ) 


offset  in  DX  ) 


IF  Choice  • 
IF  Choice 
IF  Choice  = 
IF  Choice 


»t»  THEN  Nail  i«  »WW?W. nod'  | 
'2»  THEM  Mask  :■  »?rm?r?.ard,j 
»3'  THEM  Has!  s«  »????????. led »j 
'4'  THEM  Mask  ««  '????????. hid'; 
IF  Choice  *  »5'  THEM  Kafk  t«  '????????. lod'j 
(  Use  global  search  ) 

Regs. AX  i*  $4£00| 

Regs.DS  «»  Seg(Hask); 

Regs.DI  1=  Ofs(rtask)j 

Regs.CX  i»  22; 

RSDof(Regs)| 

Error  i«  Regs. AX  and  »FFj 

I  s=  1; 

if  (Error  ■  0)  then 


{  Set  first  directory  entry  ) 
<  Point  to  the  file  Mask  ) 


(  Store  the  option  ) 

{  Execute  ffSDos  call  > 

{  Set  Error  return  ) 

{  initialize  '1'  to  the  first  eleoent  ) 


repeat 

MaoRII)  :=  Chr(HeiISeg(DTA):0fs(DTA)*2Sel))j 

I  J-  I  Mi 

until  not  (NaoMI-ll  in  t'  »..'*I1)  or  (I>20)j 


NaoRCOl  1-  Chr(l-l); 


IF  (Error  =  0)  THEM 

BEGIN 

X  !=  LEM6TH  (NaaR); 

Y  :*  X-4t 

OaETE  (MaoR.V,4); 
«RITaH(N««); 


(  set  string  length  because  assigning  ) 
{  by  eleoent  does  not  set  length  ) 
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EM| 

vfcilo  (Error  ■  0)  do  otgin 

Error  i*  Of 

Rtot.AI  i»  MFOOt  {  Function  tui  to  eot  ttw  mt  ) 

(  directory  ♦atry  ) 
togi.CI  i-  22|  (  Sot  tho  TiW  option  } 

H80ofl(  Root  )|  (  Call  KSDoo  > 

Error  i»  K091.AX  and  IFF|     {  got  tho  Error  rotitrn  ) 
I  1*  1| 

rtput 

NuRII]  1*  Chr(Not(8o9(DTA)i0fi(»TAH2^!))| 

will  not  Wtl-ll  in  V  »..»*»J  )  or  (I  >  20); 

(UittOl  i»  ChrU-Dj 

IF  (Error  ■  0)  THEN 
Kill 

I  t*  LEN6TH  (Notft){ 
Y  i«  I-4| 


DELETE  (MmR,Y,4)| 
WITEUKNultii 
END;    {  mor  if} 

Ettti  <  whiU  do  loop  ) 

Md|  {  of  procodw*  BirList 
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APPENDIX    F 

THE  FOLLOW  K6  PROCEDURES  ARE  CONTAINED  IS  THE  DISK  FILE  'SELECT 10. PAS* 
mimatt«nnjjunmmnmm:minmmimnxxmmmm:mn 

{    This  fiU  contains  the  following  procedures 

Selection  m«u 
Revieu.serectiou 

> 

PROCEDURE  Selection.tenu) 

{  This  procedure  provide  the  selection  i*nu  display  and 
choice  evaluation  necbanict  ) 

VAI 

Choicet  CHAR: 
Ok.choicei  BOOLEAN) 

K6IN 

REPEAT  {  uitil  choice  it  correct  ) 

CI  ear Screen) 

URITELN) 

URITELN  ('    Calculations  have  been  conpUted  for  ',YrCount,*  years  and    ', 

Quarto,'     quarter(s).')} 
SotoRC  (6,  1); 

KITELI  ('  Choose  on*  of  tht  following  selections.')) 

SotoRC  (8,  I); 

URITELN  V  0.    All  finished. »)t 

URITELN  ('  1.    Reviev  the  display  selections.')} 

URITELN  ('  2.    Display  an  activity  v.s.  all  tours')} 

URITELN  ('  3.    Display  a  tour  v.s.  all  activities'); 

URITELN  ('  4.    Display  the  transfer  paths  FROM  an  assignment »)) 

URITELN  ('  S.    Display  the  transfer  paths  TO  an  assignment')} 

URITELN  V  6.    Display  the  assignments  by  quarters  left')) 

URITELN  ('  7.    Change  data  values.')} 

URITELN  ('  8.    Reinitialize  data  values.')) 

URITELN  ('  9.    Ready  for  calculations.')) 

SotoRC  (19,  5) | 

WRITE  ('Please  type  in  the  nunber  of  your  selection  10,1,2,3,4,5,6,7,8,9)1  ')) 
READ  (Kbd.  Choice)}  (read  input  into  var  selection) 
First:"  '0';    Last:3  '9'i  Ok  choice  I"  true)      (  inputs  for  correct  choice  5 
Correct  choice  (Choice.  First,  Last,  Ok  chotce)}(  procedure.  "  ) 

UNTIL  OE.choice  ■  true; 

IF  Choice  ■  '0'  THEN  Alt  finished  i*  true) 

IF  Choice  =  '1'  THEN  Review  selections) 

IF  Choice  ■  '2'  THEN  Disp  assign} 

IF  Choice  =  '3'  THEN  Disp"toursj: 

IF  Choice  ■  '4'  THEN  Oispjuths  fro.) 

IF  Choice  ■  '5'  THEN  Disp  paths'tof 

IF  Choice  >  '6'  THEN  Disp'oillefs) 

IF  Choice  =  '7'  THEN  Changes) 

IF  Choice  ■  '8'  THEN 

BEGIN 

Initial  *=  false) 

Initialize) 


91 


EKD;  <  if  choke  «8  ) 

IF  Choic*  »  »S»  THEM  Atk_for_y»irii 

EM;  (Selection _Henu> 

{ttmmtxtuttttmntmtmmmttumtmmitmnttmmttttttmtt 

mtmmmumtumttmtnttnmmtittmtmttmtmttttttmmm) 

{.p»> 

PROCEDURE  Reviev_selections; 

(  This  procedures  contains  the  S4«pi«  displays  ) 

BEGIN 

Clear Screen; 

Center  (OV*    Activity  v.t.  ill  tours    ")i 

Center  (06,' Displays  the  number  of  officers')! 

Center  (07, 'at  a  specific  assignment  for  all  tours.' ); 

SotoRC  (9,10) j 

UR1TELH  ('For  exaaple  the  display  vill  look  likei'); 

HRITEWj 

URITELN  <»  Prof  Educ  '){ 

WITQJi 

WITELH  (>  TOURS »); 

IIRITEUI  ('  First        Second       Third  ...  '); 

WITEUh 

URITELNt'  400  32S  643»)» 

Color  (  black.  vhite); 

Center  (18,'  Selection  number  2'); 

Color  (  white,  blue): 

GotoRC  (23,  1); 

Pause) 

CI  ear  Screent 

Center  (04, »•  Tour  v.s.  all  activities  "It 

Center  (06, 'Displays  the  number  of  officers'); 

Center  (07, 'at  a  specific  tour  for  all  assignments.  '); 

6otoRC  O.  10); 

URITEUCFor  example  the  display  vill  look  like:'); 

ttlTEUt 

«RITEL»(»  TOUR'); 

VRITEUC  ACTIVITIES'); 

IRITEIMC  First' ); 

WRITEUK'  Prof  Educ         400  »); 

VRITELKC  Pro  Trng  342'); 

WRITELMC  HashDC  981  ') 

Color  (  black,  vhite); 

Center  (20,'  Selection  nunber  3'); 

Color  (  white,  blue); 

GotoRC  (23,  1); 

Pause; 

ClearScreeni 

Center  (04, '■  Transfer  paths  FROM  an  assignment  "); 

Center  (06, 'Displays  all  of  the  transfer  path  percentages'); 

Center  (07, 'and  the  nunber  of  officers  transferred,  fron  a  specific  assignment.'); 

6otoRC  (10,10); 

URITEUf  ('For  example  the  display  vill  look  likei'); 

URIT0J; 

VRITEU  ('  to  3rd  tour  Pro  ed')« 

URITEUi  ('  /     31Z  or  3  officers'); 

URITELN  ('  /  '); 

MITEL*  ('    2nd  tour  Pro  ed  to  3rd  tour  Pro  trng  '); 

HRITELN  ('        9  officers        \       141  or  2  officers'); 
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WITEUI  (•         transferred        \')j 

NRITELN  0  to  3rd  tour  NathJC  >)| 

NRITEU  ('  UX  or  2  officers')* 

Color  (  black.  white); 

Center  (21  »  Selection  miobtr  4'>| 

Color  <  white,  blue); 

NotoRC  (23,  1); 

Pausej 

Clear Screeni 

Center  (04,'"   Transfer  paths  TO  an  assignment    M)j 

Cantor  (06f 'Displays  tho  nutber  of  officers  traasf orro^')i 

Cantor  (07, v INTO  an  assignment  frot  those  assignnontt  in')) 

Ctntor  (08, 'the  previous  tour.    ')i 

SotoRC  (10,10)1 

KITEIJ  ('for  map}*  tho  display  vill  look  likoi')| 

NRITEU; 

'  FROH  2nd  tour  Pro  od    -\ 


URITELM  ( 

HRITELK  ( 
WITELII  ( 
NRITELN  ( 
NRITELN  ( 

wnan  ( 

URITELN  ( 

URITELN  ( 

Color  (  b 

Cantor  (2 

Color  (  white,  bluo); 

8otoRC  (23,  I); 

Pausoi 


31Z  or  3  officers 

FROM  2nd  Tour  Pro  tron- 
141  or  2  officers 

FROM  2nd  Tour  Nash  DC  - 

111  or  2  officers 
ack,  white); 
,'  Selection  nuabtr  5')j 


' 

\ 

')J 

\ 

TO 

'>! 

~\ 

3rd  Tour  Short  (CONUS) 

') 

> 

'> 

/ 

1  officers 

')? 

-/ 

transforrod 

») 

/ 

') 

Clear Screeni 
Cantor  (04, »' 


Assignments  by  quarters  loft    "); 


Ctntar  (06, 'displays  the  nunier  of  officers  at  a  specific  '): 
Cantor  (07,' assignment  by  how  aany  quarters  they  have  left  the 
6otoRC  (10.  10)] 
HcITELN  ('for  example  the  display  will  look  like:'); 

NRITELNj 

Officers  assigned «  »)| 


re'); 


URITELN  (» 

NRITELN  (")j 

NRITELN  (' 

NRITELN  (' 

NRITELN  (' 

NRITEU  («'); 

NRITELN  (")| 

NRITELN  (">: 

Color  (  black 


43 
8 
9 

white); 


with  1  qtr  left'); 
with  2  qtrs  left')) 
with  3  qtrs  left') 


ft,    mm/i 

Center  (21  '  Selection  nunber  6'); 
Color  (white,  blue): 
GotoRC  (23,  I); 
Pause| 

END;    (  review  ) 
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APPENDIX  G 
THE  FOLLOWING  PROCEDURES  ARE  CONTAINED  IN  THE  DISK  FILE  'CALCULAT.PAS1 

ixxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XtXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 
{  This  file  contains  the  following  procedures 


Ask_for  years 
Calculations 


} 


PROCEDURE  Ask. for .years; 

VAR 

Years  wanted, 
Qtrs.wanted:  INTEGER; 

BEGIN 

REPEAT  {  until  NRYears  answer  is  an  integer  } 

REPEAT  {  until  NRQuarters  answer  is  an  integer  } 

Blankline  (23,  1); 

WRITE  ('     Choose  0  years  i  0  quarters  to  quit.'); 

DELAY  (2000): 

Blankline  (23,  1); 

REPEAT  {  until  correct  answer  ) 

Blankline  (24,  1); 

URITE  ('  Do  you  desire  to  reinitialize',", 

'(set  to  zero)  yrs  &  qtrs?  (Y/N)  '); 
READ  (Kbd,  Answer); 
Correct  answer  (Answer,  Ok  answer); 
UNTIL  OE.answer  =  true;   " 

IF  Answer  in  I'Y'.'y']  THEN 

BEGIN 

NRQuarters  :=  0; 

YRCount  :=  0; 

Quarter  :=  0; 

TeipCount  :=  0; 

END;  (reset  yrs  and  qtrs  to  zero  } 

Blankline  (24,  1); 

URITE  ('How  iany  years:  <CR>and  quarters:  <CR>do  you  want  to  run  the  lodel?'): 

GotoRC  (24,  16); 

{$1-}  READ  (Years  wanted)  (SI+): 

Ok.answer  :=  (I0RESULT  =  0);  (TURBO  PASCAL  function  to  check  input  type  ) 

IF  NOT  Ok.answer  THEN  Invalid.answer; 

UNTIL  Ok.answer  *  true; 

SotoRC  (24,  34); 

($1-}  READ  (Qtrs  wanted)  <«♦>: 

0k  answer  :=  (I0RESULT  =  0);  (TURBO  PASCAL  function  to  check  input  type  ) 
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IF  (Qtrs.wanted  <  0)  OR  (Qtrs.wanted  >  3)  THEN  Ok.ansver  i»  false; 

IF  NOT  Ok.answer  THEN  Invalid.answer; 

UNTIL  Ok .answer  ■  true; 

NRQuarters  :=  Qtrs.vanted  ♦  (Years.wanted  X  4); 

IF  (Qtrs  wanted  t  (Years  wanted  X  4)  »  0)  THEN 

6E6IN  ' 

Color  (  white,  red); 

Blankline  (24,  1); 

URITE  ('You  have  chosen  0  yrs  k  0  qtrs.  Returning  to  selection  Menu.'); 

DELAY  (2000); 

Color  (  white,  blue); 

Blankline  (24,  1); 

EXIT:  {  Exit  froi  ask  for  years  procedure  ) 

END;  (  if  NRquarters  =0  } 

Calculations; 

END;  (Ask.for .years) 

{.pa) 

{xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx) 

PROCEDURE  Calculations; 

VAR 

Teip, 

Temporary:  REAL; 

TT, 

LL, 

L:  INTE6ER; 

AA:  CHAR; 

Data.file:  TEXT: 

Transfers:  Two.Dii.Real; 

BE6IN 

Tooiany:=false; 

Blankline  (24,  1); 

URITE  ('  Beginning  calculations.  '); 

QtrCount : =  0;  <  count  of  years  that  todel  is  running  for  ) 

FOR  TT  :=  12  D0HNT0  1  DO 
BEGIN 

FOR  AA  :=  'A'  TO  »H»  DO 
BEGIN 

FOR  LL  :=  1  TO  16  DO 

BEGIN 

Teip  billet  node  ITT,  AA,  LL)  :=  Billet  node  [TT,  AA,  111: 

END;  (  LL  loop  } 

END;  (  AA  loop  ) 

END;  (  TT  loop  ) 

REPEAT 

QtrCount  i«  QtrCount  »  1; 

FOR  T:=  12  D0UNT0  2  DO 
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BEGIN  (T  Loop) 

FOR  A:  =  »A'  TO  »H»  DO 

BEGIN  (A  loop  -  latheiatical  calculations) 

L:=  I;  {Length  of  billet  nodes  in  quarters} 

REPEAT 

Teip  Billet  node  [  T,  A,  L  )  :=  Teip  Billet  node  t  T,  A,  L+13; 

L  s^'L  Mi 

UNTIL  L  =  16  ; 

Transfers  C  T-l,  A  1  := 

(Teip  Billet  Node  t  T-I,  'A' 

(Teip'Billet'Node  I  T-l 

(Teip'Billet'Node  [  T-l 

(Teip'Billet'Node  I  T-l 

(Teip'Billet'Node  [  T-l 

(Teip'Billet'Node  C  T-l 

(Teip'Billet'Node  [  T-l 


»B' 
•  C 
'D' 
•E' 
»F» 
»6» 


1  1  t  Transfer  Path  [T-l, 'A', A]) 

I  1  t  Transfer  "Path  CM  'B'  AD 

1  1  I  Transfer "Path  tT-t,'C',A]) 

1  1  t  Transfer  "Path  [T-lf'D',A]) 

1  1  t  Transfer "Path  [T-1,'E',A]) 

I  1  t  Transfer  "Path  [T-l  T'  AH 

1  1  I  Transfer "Path  [T-l,'S',A))j 


Teiporary  :=     Teip  Billet  Node  t  T.  A.  Billet  Length  C  T.  A  11: 
Teipjil  let  .Node  [  T,  A,  BTllet.Length  t  T,  A  T]:  = 

Transfers  [T-l,  Al  ♦  Temporary; 
Final  totals  :=  false; 
BilleF.totals  (TrA); 

IF  Teip  billet  total  C  T,  A  ]  >  Hiliiit  [  T,  A  3  THEN 
BEGIN    ' 

Violation  :=  true; 
High.warning; 

IF  Stop.calc.T  THEN  EXIT; 

END;  (if  high  warning} 

IF  Teip  billet  total  [  T,  A  ]  <  Loliiit  t  T,  A  ]  THEN 
BE6IN    " 

Violation  :=  true; 
Lov_varning; 

IF  Stop.calc.T  THEN  EXIT; 

END;  {  if  lov  warning  ) 

END;      {  A  Loop  } 

END;  (T  Loop  and  latheiatical  calculations} 

UNTIL  (StrCount  =  NRQuarters)  OR  Tooiany; 

IF  NOT  Violation  THEN 
BEGIN 

TeapCount  :=  TeipCount  +  Qtr Count; 
YrCount  :=  TRUNC  (TeipCount /4); 

IF  ((YrCount  t  4)  >  Teipcount)  THEN  YrCount  :=  YrCount  -  1; 

Quarter  :=  TeipCount  -  (YrCount  t  4); 


FOR  TT  :=  12  DOHNTO  1  DO 
BEGIN 

FOR  AA  :=  »A«  TO  'H'  DO 
BEGIN 

FOR  LL  :=  1  TO  16  DO 
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BEGIN 

Billet  nod*  CTT,  AA,  LU  i«  Ttip  Billet .nod*  CTT,  AA,  LL1; 
END;  C\X  loop  ) 

END;  {  AA  loop  ) 

END)  (  TT  loop  ) 

Final  totals  :=  true; 
All.brilet .totals; 

END;  {  violations  if  ) 

END;    {calculations} 
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APPENDIX    H 

tie  rouomm  procedures  are  contaiied  in  the  disk  file  •totals.pab* 
luttmmttxtmtttttntttttmmmttmtmntnxttttutttttmmtttm 


<  This  filt  contains  the  following  proc*dnr*s 

All  bill*t  totals 
liUtt  .totals 

High  warning 
low .warning 


PROCEDURE  All.bilUt .totals; 

{  This  procedure  provide*  the  •echanici  for  totalling 
all  of  thf  real  billet  nodes  > 

VAI 

K:  CHAR) 

BE8IM 

IF  Final  totals  THEN 
BESIN 

FOR  I«-  12  DOWTO  1  DO 
8C61N    {  Activity  Loop) 

FOR  Kt">A'  TO  'H'  DO 
B€8IR 

Billet  Total  C  X,  K  3  :=  Billet  node  I  X,  K,  1  1  + 

'Billet  node  (  I,  K,  2  1  ?  Billet  node  (  I,  I,  3  1  ♦ 
lill*t"node  t  X    K,  4  1  ♦  Billet "nod*  I  X,  K,  5  1  ♦ 
Billet  "node  C  X,  K,  6  1  ♦  Billet'node  t  X,  K,  7  1  ♦ 
Billet  "node  t  X,  K,  8  1  ♦  Billet'node  I  X.  K,  9  1  ♦ 
Billet'node  (  X,  K    10  1  ♦  Billet  nod*  (  I,  K,  11  1  ♦' 
Billet "nod*  t  X    K    12  1  *  Billet'node  I  X,  K,  13  1  ♦ 
Billet'node  t  X,  K,  14  1  ♦  Billet'node  C  X,  K,  15  1  ♦ 
Billet'node  I  X.  K,  16  ]j 

END}    (  K  loop  billet  total  ) 

WD$  {  X  loop  billet  total  ) 
END)  {  if  all. total  is  true  ) 
ENty  (all.bilUt.totals  > 

tttuuuttttiiutuiuitttttttttttttttttttttttttttttttttitttstttttttttuttt 
mtmmimnmmiitttmtmsmmmniHttmnmmmmumtm} 

l. pa) 

PROCEDURE  Billet .totals; 

{  This  procedure  provides  the  Mchanici  for  both  all 
temporary  billet .totals  and  individual  totals  of  the  billet  nodes  ) 
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Ki  OUfti 

mm 

IF  Final  total*  THEN 
KfilM     " 

FOR  If  12  DOIMTO  1  DO 
K6IN    <  Activity  Loop } 

FOR  Ki-»A»  TO  'N*  DO 

nun 

BilUt  Total  [  I.  K  ]  :=  Billet  nodi  I  X,  K,  1  )  ♦ 

lilWt  nod*  C  X,  K,  2  )  *  Billot  nod*  C  1,  I,  3  1  ♦ 
BilUfnod*  t  I,  K,  4  1  +  Bill*t"nod*  I  I,  K,  5  1  ♦ 
Billot'aodo  t  I,  K,  6  ]  ♦  Billot'nodo  (  1    K    7  1  ♦ 
Billot'nooV  I  X,  K,  8  1  ♦  BilUfnod*  t  X.  K,  9  1  + 
Blll*t~«od*  C  X,  K,  10  1  ♦  Bill*?  nod*  C  I,  i,  ttl  ♦ 
BilUfnod*  [  X,  K,  12  1  ♦  BilUfnod*  I  X,  r,  13  1  + 
Billot'nodo  I  I,  K,   14  1  ♦  BilUfnod*  [  1,  K,  IS  1  ♦ 
BilUfnod*  [  I    K    16  ); 

EN0{    (  K  loop  billit  total  } 

OTOj  (  I  lool  billot  total  ) 
END  {  if  ill.total  if  tru  ) 

ELSE 

BE6II 

T*op  BilUt  Total  C  T,  A  1  i-  T*a*  billit  nod*  I  T.  A,  1  1  ♦ 

Toip  bilUt  nod*  C  T,  A,  2  1  ♦  Tit?  billot  nod*  C  T,  A.  3  1  ♦ 

Utp'bilUf  nod*  1  T,  A,  4  1  ♦  Uop'bilUf  nod*  I  T,  A,  5  1  ♦ 

Utp'bilUf  nod*  (  T,  A,  6  1  ♦  Utp'bilUf  nod*  t  I,  A,   7  1  » 

Utp'bilUf  nod*  I  T,  A,  8  1  ♦  UtpbilUf  nod*  t  T.  A.  9  1  ♦ 

Utp'bilUf  nod*  I  T,  A,  10  1  ♦  Utp  bill*?  nod*  t  t,  A.  11  1  ♦ 

Utp'bilUf  nod*  I  T,  A,  12  1  ♦  Utp'bilUf  nod*  [  T,  A,   13  1  ♦ 

Utp'bilUf  nod*  (  T,  A,   14  1  ♦  Tosp'billot'nodo  (  T,  A,   15  1  ♦ 

T*5"bilUf  nod*  I  T  A    16  1; 

END)      (olto  T 

EHDf  (totaU  ) 

imntninmnnnnnnnntrtimnnnnnmnnnimnnnnnnn 
ttmmnntttttntnntttmmtmiumnmtmmttttxuttxtttttmtttt) 

(.•a) 

PROCEDURE  Hlghjarningi 

{  This  proc*dur*  providos  th*  displays  and  i*chanics  for 
displaying  th*  high  warning  Mtsao*  and  post  warning 
choic*  display  > 

VAR 

Finish  hioh, 

Ok  actfvity:   BOOLEAN) 

ToiUapcount, 

Totyrcount. 

Toiqtrcount, 

TotquarUr, 

8c  win  t, 

TT, 

LL, 

L:  WTE8ER: 

Tcop  :  REAL; 

1Mb 
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Ks  CHARi 
Datajllei  TEXT; 

K61M 

TotUapcotMt  :  =  Teupcount  ♦  GtrCouutt 
TotYrCouut  i-  TRIJIur  (TotTeopcount/4); 

IF  ((TotYrCount  I  4)  >  Tot teupcount  )  THEM  Tot Yr Count  J-  Tot Vr Count- 1; 

TotOuarter  i>  Tot Teupcount  -  (TotYrCouit  t  4); 

REPEAT 

Clear screen; 

Color  (  unite,  red); 

GotoRC  (2.  10 J j 

IIRITEUI  (*After    », Tot Yr count ,'    ytir(s)  and  ', TotOuarter,'    quarter(s),  •); 

6otoRC  (4,  10); 

URITELN  <lThe  constraint  for  'Jour  I  T  ],'  '(Activity  I  A  3, 

'  has  been  exceeded.'); 
SotoRC  (6.  10); 

URITELN  ('There  art  '.ROUND  (Teop  billet  total  t  T,  A  )),'  officers  there  now.'); 
GotoRC  (8.  10)i 

URITELN  (*The  high  Unit  is  ',  ROUND  (Hili.it  [  T,  A  )),  '  '); 
Color  (  white,  blue): 
GotoRC  (10,  lit 

URITELN  ('  Uhat  do  you  desire  to  do  now?'); 
URITELN  ("); 

URITELN  ('   0.  Abort  simulation.  Return  to  selection  eenu.'); 
URITELN  ('   1.  Ignore  Units  and  continue  simulation.'); 
URITELN  ('  2.  Back  up  one  quarter  in  the  simulation.'); 

REPEAT  (until  answer  correct) 

GotoRC  (10,  34)i 

READ  (kbd.    Choice  );  (read  ASSIGNMENT  letter) 

First  :■  '0';  Last  :=  '2':  0k  choice  i«  true) 

Correct  choice  (  Choice,  First,  Last,  0k .choice); 

0k  activity  :=  Ok  choice; 

UNTIL   Ok.activity    =  true; 

IF  Choice  »  '0'  THEN 
BE61N 

FOR  TT  :=  12  DOUNTO  1  DO 
BE8II 

FOR  AA  :=  'A'  TO  'H'  DO 
BEGIN 

FOR  LL  :=  1  TO  16  DO 

BE81N 

Tens  billet  node  (TT.  AA.  LL]  i=  Billet  node  (TT,  AA,  LL3| 

Temp"billef  total  C  TT,  U  1  i»  Billet  total  (  TT,  Ai  1; 

END;'(  LL  loop  ) 

END;  (  AA  loop  ) 

END;  (  TT  loop  ) 

Stop_calc_T  :=  true; 

Tootiny  :=  true; 

Violation  :=  false; 

END;    (  if  choice  is  zero  /  abort  ) 

IF  Choice  ■  '1'  THEN 

BEGIN 

GotoRC  (16,  1); 

WRITE  ('  Setting  ',  Tour  I  T  1,  Activity  I  A  ],'  high  lliit  to  9999,'); 
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SotoRC  (18,  l)| 

WITE  ('  and  continuinf  calculationt")| 

Hllltlt  (  T,  A  1  i>  Httj 

Violation  t*  fals*j 


Stop. calc_Tt:?  fals*j 


'{  if'cboic*  vis  1) 


IF  Cfcoic*  ■  '2*  THE! 
BU 

KROuarters  i"  BtrCount  -  if 

FOR  TT  t»  12  OOUNTO  1  DO 

ksm 

FOR  AA  :«  'A'  TO  •H'  DO 
BCdlN 

FOR  LL  t-  1  TO  16  DO 

DE8IN 

Taw  billet  nod*  I  TT.  AA,  LL  )  t-  BilUt  nod*  [  TT.  AA,  LL  )\ 

T*3"aill*t" total  C  TT,  AA  1  t»  8ilt*t  total  (  TT,  AA  1 

END;  (  LL  loop  > 

0»|  (  AA  loop  ) 

END;  {  TT  loop  ) 

IF  HRQuarters  >  0  THEN 

nan 

Color  (  whit*,  red); 

Bl an* line  (24,  1)| 

KITE  COm  less  quarter  it  0  years  and  0  quarters  new  calculations.'); 

DEUY  (2000)t 

Blankiin*  (24,  1); 

HRITE  ('  Returning  to  selection  a*nu.')| 

DEUY  (2000); 

Color  (  white,  blue)) 

Blankiin*  (24,  1)| 

Stop  calc  T  i"  true) 

E»" 

ELSE 
KIM 

SotoRC  (16,  1)1 

VRITEUt  C    After  completing  calculation!  for  on*  lees  quarter'); 

WITE  ('      the  KXiel  will  return  you  to  the  selection  i*nu.'); 

DELAY  (2000) | 

Violation  i>  false; 

Stop  calc  T  ts  true; 

Calculations! 

DO;  (  If  NROuarters  -  0) 

END;  (  if  choice  was  2  ) 

Finish  high  :=  true; 

UNTIL  Fintsh.high  ■  true; 

END|    (  High  warning  ) 

mnmn»mmmimmmmnnmnmnmmimmnmmmmn> 


(.pa) 

PROCEDURE  Low  .warning; 
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{  TMt  procedure  provides  tho  displays  and  nethanics  for 
disp  UyiAf  til*  lov  varninf  testate  and  pott  varmint 
choice  display  } 

m 

Finish  lov, 

Ok  actfrityi  BOOLEAN! 

Toiteupcount, 

Totyrcount, 

Totqtr count, 

Tot quarter, 

•count. 

TT, 

LL 

Li  INTE8ER1 

Teop  :  REAL; 

AA, 

K:  CHAR) 

Datajllti  TEXT| 

BEGIN 

Tottetpcoiwt  »■  Tetpcount  +  QtrCount; 
TotYrCount  «*  TRUNC  (TotTeopcount/4); 

IF  ((TotYrCount  t  4)  >  Tottenpcount  )  THEN  TotYrCount  :=  TotYrCount- 1; 

TotQuarter  :=  TotTeopcount  -  (TotYrCount  t  4); 

REPEAT 
Clear SCreeni 

Color  (  unit*.  red)j 

OotoRC  (2.  10); 

URITELN  (Mfter  ',TotYrcount,»  year(s)  and  »,Tot8uarter,'  quarter(s),  '); 

GotoRC  (4.  10)t 

URITELN  (»The  constraint  for  'Jour  I  T  1,'  '.Activity  [  A  1. 

'  has  been  violated.'); 
SotoRC  (6.  10)} 

URITELN  ('There  art  '.ROUND  (Ten?  billet  total  I  T,  A  1),'  officers  there  no*.'); 
6otoRC  (8.  10) t 

URITELN  ('The  lov  Unit  is  ',  ROUND  (Lolinit  t  T,  A  1),  '  '); 
Color  (  white,  blue); 
SotoRC  (10,  1); 

URITELN  ('     Uhat  do  you  desire  to  do  no*?'); 
BRITELN  (")j 

URITELN  ('     0.    Abort  simulation.  Return  to  selection  menu.'); 
URITELN  ('      1.    Ignore  Units  and  continue  simulation'); 
URITELN  ('     2.    Back  up  one  quarter  in  the  simulation.'); 

REPEAT    (until  answer  correct) 
SotoRC  (10,  34) 


BOtOKC  UQ,    34)1 

READ  (kbd.    Choice  )|  (read  ASSIGNMENT  letter) 
First  :=  '0';  Last  t=  '2':  0k  choice  :=  truer 
Correct_choice  (  Choice,  Firs?,  Last,  Ok .choice); 


0k  activity  :=  0k  choice; 
UNTIL   0k .activity    =  true; 

IF  Choice  =  '0»  THEM 
BE6IN 

FOR  TT  :=  12  DOUKTO  1  B0 
BE0IN 

FOR  AA  I*  'A'  TO  »H»  DO 
BEGIN 

FOR  LL  »«  1  TO  16  DO 
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Km 

Tetp  billet  nod*  ITT.  AA,  LL1  I-  Billet  nod*  ITT.  AA.  LL); 
Tetp'billet  total  (  TT,  JU  J  I-  Billet  total  (  TT,  M  1) 
EJO|  (  U  loop  ) 

ENI;  <  AA  loop  ) 

ENDf  {  TT  loot  ) 

Stop  calc  T  Is  true; 

Toofev  i»"tru*i 

Violation  t-  false; 

E»;    (  if  cHoic*  it  i*r©  /  abort  ) 

IF  Choice  ■  »l'  THEN 

BENIN 

8otoRC  (16,  1)| 

KITE  ('  Setting  ',  Tout  I  T  1,  Activity  I  A  ],'  lov  litit  to    0,')j 

OotoRC  (18,  I); 

KITE  (•  ant*  continuing  calculations!'); 

Lolitit  I  T,  A  1  »»  0| 

Violation  :=  false; 

Stop  calc  T  i*  false; 

VO>\'{  if'choict  vai  1) 

IF  Choica  »  »2»  THEN 

BEGIK 

IRBuartert  i«  BtrCount  -  lj 

FOR  TT  |<  12  DOWTO  1  DO 
BEGIN 

FOR  AA  i-  'A'  TO  »H»  DO 
BC6IM 

FOR  11  i»  1  TO  16  DO 
BENIN 

Test  billet  nod*  I  TT.  AA.  LL  1  :=  Billet  nod*  I  TT.  AA,  LL  ]( 
Tetp'billet 'total  C  TT,  Ai  1  i-  Billet  total  (  TT,  AA  J 
E»;"<  LL  loop  } 

E»;  {  AA  loop  ) 

END;  {  TT  loop  > 

IF  NROuarters  ■  0  THEN 

BE61N 

Color  (  white,  red)] 

Blankline  (24,  1); 

BRITE  ('One  less  quarter  is  0  years  and  0  quarters  new  calculations.'): 

DELAY  (2000) j 

Blank  line  (24,  1); 

WRITE  ('      Returning  to  selection  eenu.'): 

DELAY  (2000); 

Color  (  white,  blue)j 

Blank  line  (24,  1)| 

Stop  calc  T  :>  true) 

ENB 

ELSE 

BE6IN 

SotoRC  (16,  1); 

URITELN  ('  After  completing  calculations  for  one  less  quarter'); 

UNITE  ('   the  node  I  vill  return  you  to  the  selection  aenu.'); 

DELAY  (2000); 

Violation  :=  false; 

Stop_calc.T  :=  true; 

Calculations; 
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E»|  <  If  Kfearttu  •  0) 

EMf  (  if  choice  Mf  2  > 
Finistt.low  »■  trutf 
UNTIL  Fiiisli.lov  •  trutj 
ENS|    (  Low  warning  ) 
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APPENDIX  L 
THE  FOLLOWING  PROCEDURES  ARE  CONTAINED  IN  THE  DISK  FILE  'CH6DATA.PAS* 

ttttmmutMutmtttiuxitmutttnmmxxitttxtmmtttttmuittttx) 

{  This  file  contains  the  following  procedures 

Changes 

Change_accessio«s 
Change^arcs 
Change^  *ngth 
Change  hill  aits 
Change  loliaits 
} 

PROCEDURE  Changes; 

{  This  procedure  provides  the  display  and  response  evaluation 
for  changing  data  ) 

BE6IN 

Finished  I"  false) 

IF  NOT  (POS  C'.Nodedata)  ■  0)  THEN  Strip  (Nodedata); 

IF  NOT  (POS  C.',Arcdata)  ■  0)  THEN  Strip  (Arcdata); 

IF  NOT  (POS  (V.Lengdata)  ■  0)  THEN  Strip  (Lengdata)| 

IF  NOT  (POS  C.'.Hilidata)  ■  0)  THEN  Strip  (Hilidata); 

IF  NOT  (POS  ('.'.Lolidata)  =  0)  THEN  Strip  (Lolidata); 

REPEAT  (until  finished  true  } 

ClearScreen; 

URITELN; 

URITELN  ('  '): 

URITELN  ('     Uhich  data  do  you  desire  to  change?'); 

URITELN  ('   ')• 

URITELN  ('  Input  data  Data  file  ■); 

GotoRC  (8.  1); 

URITELN  <>  0.  No  changes/ finished  changes.  >); 

URITELN  ('  1.  Nuaber  of  officer  accessions.'); 

URITELN  ('  2.  Transfer  path  percentages! 

URITELN  ('  3.  Assignment  tour  lengths) 

URITELN  ('  4.  High  lints: 

URITELN  ('  S.  Low  lints:  ',  Lolidata  )j 

URITELN; URITELN; 

REPEAT  (  until  choice  correct  ) 

6otoRC  (16,1); 

WRITE  ('      Type  your  selection  [0,1,2,3,4,51:  '); 

READ  (Kbd.  Choice):  (read  input  into  var  selection) 

First  i"  *0';    Last  !=  'S';  0k  choice  :=  true;    (inputs  for  correct  choice    ) 

Correct  Choice  (Choice,  First, 'Last,  0k  choice);  (  procedure. 

UNTIL  OE.choice  ■  true; 

IF  NOT  0k  choice  THEN  Changes; 

IF  Choice''  '0'  THEN  Finished  :=  true; 

IF  Choice  ■  '1'  THEN  Change  accessions; 

IF  Choice  =  »2'  THEN  Change'arcs; 

IF  Choice  ■  '3'  THEN  Change'length; 

IF  Choice  =  '4'  THEN  Change'hiliiits; 

IF  Choice  »  'S'  THEN  Change'loliiits; 
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UNTIL  Finished  =  true; 
END)    {  Changes  > 


(tmttttmttummutmmttttmtmttmtmmttttmmmtttttttttt 

txxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxx) 

(.pa) 

PROCEDURE  Change.arcs; 

{  This  procedure  provides  the  display  and  lechanics 
to  change  transfer  path  percentages  ) 

CONST 

Naxpercent  =  100; 
VAR 

Ok  selection, 

Ok  total, 
Ok 'tour, 
Ok'activity, 
Finished  cng, 
Finished'path:  BOOLEAN; 
ZZ  :  CHAR; 
Path  total, 
P  :  REAL; 

RRR 

Tolal  :  INTE6ER; 

BEGIN 

Ok  pet  :=  false; 
Ok  "tour  :=  false; 
Ok'activity  :=  false; 
Ok'total  !»  true; 
Quit  :=  false; 
Finished _path  :=  false; 
Finished_chg  :=  false; 

REPEAT  {until  finished  changes) 

REPEAT  {  until  selection  ok  ) 

Ok_selection  :=  true; 

Chg_var  :=  'Which  assignient  do  you  wish  to  change  the  path  X  fron?'; 

CI  ear screen; 

Dchoices; 

CI  ear  screen; 

IF  (T  =  12)  THEM 
BEGIN 

Ok  selection  :=  false; 
Color  (  white,  red); 
Blankline  (24,1); 

WRITE  ('  There  are  no  transfer  paths  fron  Twelfth  Tour  assignments. '); 
DELAY  (2000); 
Color  (  white,  blue); 
Blankline  (24,1); 
12 


END;  (  if  tour  12  is  chosen) 
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IP  (A  in  t'HVh'l)  TNO 

BEGIN 

Ok  selection  i"  falit) 

Color  (  white,  red); 

Blankline  (24,1); 

WRITE  ('  There  are  no  transfer  paths  fro*  Separation  assignments.'); 

DELAY  (2000); 

Color  (  white,  blue); 

BUnkline  (24,1): 

EMS;  {  if  tour  12  is  chosen) 

UNTIL  Ok .selection  ■  true) 

Path. total  i-  0.0; 

FOR  Ki>'A'  TO  'H'  DO 

BE6IN 

Path  total  :=  Path  total  ♦  Transfer  path  I   T,  A,  K  ]; 

END;"<  path  total)' 

Froi  pathscrn; 

6otoRC(iO,5): 

WRITELNC      FROIf ' )  ( 

6otoRC(ll,2); 

URITELN(Tour  [  T  ], Activity  C  A  1); 

R  i-  1 

RR 


FOR  ZZ  i-  'A'  TO  »H»  DO 

BEGIN 

GotoRC  (  R,  40)1 

URITELN  ('TO  »,ZZ,'»  »,  Tour  [  T+l  ],  Activity  [  ZZ  )); 

GotoRC  (RR,  42); 

URITELNC*, (Transfer  path[TlA,ZZ]tlOO):4iO,'X')j 

R  !■  R  t  3; 

RR  :=  RR  +  3; 

END; 

GotoRC  (16,2); 

WRITE  ('Percent  Total'); 

GotoRC  (17,1); 

WRITE   ('   '.(Path  totaltlOOMiO,'  I'); 

Path.total  »=  0.0; 

REPEAT  (  until  Ok.total  true  ) 

REPEAT  {  until  quit  with  current  path  breakout) 

REPEAT  (until  ok  choice  ) 

6otoRC  (24,  !)}  " 

WRITE  ('Which  path  Z  do  you  wish  to  change?(A-H)or(Q  to  quit)      '); 

GotoRC  (24,  55) j 

READ  (Kbd.  K): 

K  :  =  UPCASE  (K); 

IF  K  in  I'A»,'B','C','D','E',»F','6','H','Q']  THEN  0k  choice  :*  true 

asE 

BE6IN 

Ok.choice  I"  false; 

Invalid  answer; 

END;  (  If  K  correct  choice  ) 

UNTIL  Ok.choice  ■  true; 

Ok.choice  :=  false; 

IF  K  =  'Q'  THEN  Quit:=  true; 
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IF  NOT  (Quit)  THEN 
BE6IN 

REPEAT  {  until  Ok_pct  true  ) 

IF  K  =  'A»  THEN  SotoRC  (2,  42); 

IF  K  -  'B»  THEN  SotoRC  (5,  42) 

IF  K  >  'C  THEN  SotoRC  (8.  42) i 

IF  K  -  'D'  THEN  SotoRC  (II,  42); 

IF  K  =  »E»  THEN  SotoRC  (14  42) 

IF  K  =  »F»  THEN  GotoRC  (17  42) 

IF  K  =  '6'  THEN  SotoRC  (20  42); 

IF  K  =  «H»  THEN  SotoRC  (23,  42); 

(II-)  READ  (  P  )  (lit)  ;  (read  percent  number  but  first  cancel  I/O  ) 

{  checking  to  prevent  error  if  non  real  ) 
(  key  is  struck  accidentally.  Then  turn  back  on  ) 
0k_pct  :-  (IORESULT  =  0);(TURB0  PASCAL  I/O  error  check.  If  input  ) 
(  vas  in  fact  correct  i.e.  a  real  then  ) 
{  the  TB  function  IORESULT  vill  return  a  0  ) 

IF  (P  >  100)  OR  (P  <  0)  THEN  Ok .pet  i«  false; 

IF  Ok  pet  AND  (Billet  length  I  T+l,  K  J  =  0)  THEN 

BEGIN 

SotoRC  (24,  1); 

Color  (  white,  red  ); 

Blank  line  (24,  1); 

MUTE  ('    You  are  sending  officers  to  an  assignment  vith  a  length  of  0  '); 

DELAY  (2000): 

Blankline  (24,  1); 

WRITE  ('  Do  not  forget  to  change  the  tour  length  of  that  assignment.'); 

DELAY  (2000); 

Color  (  white,  blue); 

Blankline  (24,  1); 

END; 

IF  NOT  Okjct  THEN  Invalid.answer; 

UNTIL  Okjct  ■  true; 

Ok_pct  :=  false; 

Transfer jath  I  T,  A,  X]  j=  (P/100); 

IF  K  =  'A'  THEN  SotoRC  (2,  42); 

IF  K  «  'B'  THEN  SotoRC  (5,  42); 

IF  K  =  »C»  THEN  SotoRC  (B  42) 

IF  K  >  »D»  THEN  SotoRC  (11,  42); 

IF  K  =  'E»  THEN  6otoRC  (14,  42); 

IF  K  -  »F»  THEN  6otoRC  (17  42) 

IF  K  =  '6'  THEN  6otoRC  (20  42) 

IF  K  »  'H»  THEN  SotoRC  (23,  42); 

Color  (  blue,  white); 

WRITE  (", (Transfer j>ath  CT,A,Km00):4:0,'  Z'); 

Path.total  :=  0.0; 

FOR  K:='A'  TO  'H'  DO 

BE6IN 

Path  total  :=  Path  total  ♦  Transfer  path  [  T,  A,  K  ); 

END;"(  path  total)" 

SotoRC  (17,  1); 

WRITE   ('   '.(Path  totaU100):4:0,'  I»); 

Color  (  white,  blue  I; 

END;  (  not  quit  if) 
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UNTIL  Quit  «  trut| 

IF  Quit  THEN 

BE6IN 

Ok  total  1=  true: 

Pafh.total  :=  0.6; 

FOR  K:»»A»  TO  »H»  DO 

BE6IN 

Path  total  :-  Path  total  ♦  Transfer .path  t  T,  A,  K  1; 

ENDf<  path  total)" 

Total  i-  ROUND  (Path.total  t  100) \ 

IF  (Total  ■  0)  OR  (Total  ■  100) 

THEN  Ok  total  I*  trut 
ELSE 
BE6IN 

Ok .total  !■  false; 
Okjct  :=  false: 
Ok  choice  :=  false; 
Suit  !■  false; 
Color  (  white,  red); 
SotoRC  (24.1); 
Blankline  (24,  1); 

KITE  ('The  total  of  transfer  percentages  tust  equal  100  or  0'); 
DELAY  (2000); 
Blankline  (24,  1); 

UNITE  ('  They  now  sua  to  ', Total,'  '); 

DELAY  (2000)s 
Blankline  (24,  1); 

KRITE  ('       You  need  to  change  another  path  percentage.  '); 

DELAY  (2000); 
Color  (  white,  blue); 
Blankline  (24    1); 
SotoRC  (23,  30); 
END;  (  if  percent  not  equal  to  100  ) 

END;  (if  quit  true) 

Quit  t>  false; 

UNTIL  Ok.total  ■  true; 

Ok.total  i"  false; 

Another.change; 

IF  Answer  in  ['N','n')  THEN  Finished.chg  :=  true; 

UNTIL  Finished.chg  ■  true; 

END;  (Change.arcs) 

{mttnxmttmtutttttuttttttttttttummuntmtttmmttmtmmt 
txtmttumnxxtmnmmnmmttttnmmtmtxnmtmmmmtm) 

(.pa) 

PROCEDURE  Change.length; 

{  This  procedure  provides  the  displays  and  techanics  for 
changing  assignment  tour  length  ) 

VAR 
Finished  leng, 
Ok.tour," 
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Ok.Ktivityt  Boolean; 

BEGIN 

Ok  tour  i"  false; 
Ok'activity  t=  false; 
Flnished.leng  i»  false; 

REPEAT  (until  finished  leng  true  ) 

Chg  var  i«  'Which  assignment  tour  length  do  you  wish  to  change?'; 

Clearscreen; 

Dchoices; 

REPEAT  {  until  nunber  entry  is  correct  ) 

Clearscreen: 

6otoRC  (3.  1); 

HRITELN  ('       The  old  \  Tour  t  T  1,  Activity  [  A  1,'  length  is  '. 
Billet  length  C  T,  A  1:0, »  quarters'); 

yRITELNjWITELNjBRITELN; 

URITE  ('       Hov   nany  quarters  long  do  you  vant  this  assignment  nov?  '); 

MI-}    READ  (  Nev  Length  C  T,  A  1)    <•!♦>»  (read  nev  length  nunber) 

Ok  answer  :=  (I0R£SULT  ■  0){    <  TURBO  PASCAL  I/O  error  check.    If  input  ) 

{  was  in  fact  correct  i.e.  an  integer  then  ) 
{  the  TB  function  IORESULT  will  return  a  0  ) 

If  NOT  Ok  .answer  THEN  Urong.ansvor; 

UNTIL  Ok.ansver  =  true; 

SotoRC  (10,  5); 

URITELN  ('The  nev  '    Tour  t  T  1, Activity  IA1. 

'  length  is       '.  Nev  Length  (  T,A1,'       quarters.'); 
Billet  .Length  I  T,  A  h=  Nev.Length"  I  T,  A  1; 
Anothef.change; 

IF  Answer  in  t'YVy'l  THEN  Finished  leng  :  =  false; 
IF  Answer  in  C'N','n']  THEN  Finished}  eng  i  =  true; 

UNTIL  Finished.leng    =  true; 

Finished  :=  false; 

END;  {  Change. length  ) 

{tmxtxxxxtmxtxxxtxxuxxmxxxxmxixtxxuxxxtxxxxxxxxxxxxtxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx) 

(.pa) 

PROCEDURE  Change.hilinits; 

(  This  procedure  provides  the  display  and  mechanics  for 
■aking  changes  to  the  high  Unit  data  ) 

VAR 

Finished  high, 
Ok.tour," 

Ok'activity:  Boolean; 
Nev.linit:  Tvo.Dis.Real; 

BEGIN 

Finished  high  :=  false; 
Ok.tour  7s  false; 
Ok'activity  :=  false; 
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REPEAT  (  until  finished  high  is  tru*  ) 

Chg  var  i*  'Which  high  Hut  do  you  with  to  ch4ng#?'j 

Clear  screen; 

Dchoices; 

REPEAT  {  until  nuabtr  entry  if  correct  } 
Billet  total  (  T,  A  1  s=  Billet  node  t  T,  A,  1  1  ♦ 

Billet  nod*  t  T,  A,  2  I  ♦  Billet  node  [  T,  A,  3  ]  ♦ 
Billet'node  t  T    A    4  1  ♦  Billet'node  (  T    A    5  1  ♦ 
Billet'node  I  T,  A,  6  ]  +  Billet'node  [  T,  A,  7  ]  ♦ 
Billet'node  C  T    A,  8  1  ♦  Billet'node  C  T    A    9  1  » 
Billet'node  I  T,  A,  10  1  ♦  Billet  node  [  T,  A,  111  ♦ 
Billet'node  C  T,  A,  12  1  ♦  Billet'node  t  T,  A,  13  1  ♦ 
Billet'node  t  T,  A,  14  )  *  Billet'node  [  T,  A,  15  3  ♦ 
Billet'node  C  T,  A,  16  li 

CltvtcrtMi 

SotoftC  (3.  I); 

MRITEUt  ('  The  old  high  lint  for  »    Tour  t  T  1,  Activity  [  A  1, 
'  is  »,  Hlliiit  (  T,  A  Ji8i0,»  officers.')) 

NRITELN; 

NRITELN  (»  There  currently  are  ',  Billet  total  [  T,  A  1:8:0, 

'     assigned.'); 

lev  hut  t  T,  A  1  :=  Loliiit  I  1,  A3; 


NRITELN 

KITE  0   Hov  iany  officers  do  you  want  as  the  high  liiit  now?  '); 

■  T,  A  1) 


* 

{*!-)    READIN  (  New  Lint  (  T,  A  1)    <$!♦};  (read'nev  length  nutbef) 
Ok  answer  :=  (IORESOLT  ■  0)j    {  TURBO  PASCAL  I/O  error  check.    If  input  ) 

{  was  in  fact  correct  i.e.  an  integer  then  > 
{  the  TB  function  IORESULT  will  return  a  0  > 

IF  NOT  Ok .answer  THEN  Nrong.anmr; 

UNTIL  Okanswer  ■  true; 

OotoRC  (10,1) j 

WR1TELN  (  »    The  new  high  liiit  for  '.  Tour  IT], 

Activity  CA),'  is  ».  Hew  Unit  t  T,  A  1:8:0, »   officers.'); 
Ki  liiit  [  T,  A  ];=  New  liiit  I  T,  X  ]; 
Another. changej 

IF  Answer  in  [»■»,»■•]  THEN  Finished.high  I"  true; 

UNTIL  Finished.high  ■  true; 

END|   {  Change.hiliiits  ) 

ixxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

(.pa) 

PROCEDURE  Chai\ge_loliiits; 

{  This  procedure  provides  the  display  and  lechanics  for 
Mking  changes  to  the  low  liiit  data  ) 

VAR 

Finished  low, 

Ok.tour," 

Ok" activity:  Boolean; 

Hew_lie.it:  Tvo.Dii.Real; 

BE6IN 

Finishedlov  :=  false; 


1  1  1 


♦ 


Ok  tour  i«  false; 
Ok'activity  :3  false; 

REPEAT  (until  finish*!  low  is  true) 

Chg  var  I"  'Which  lov  Tiiit  do  you  vish  to  change?'; 

ClMTfCrtMJ 

Bchoices; 

REPEAT  {  until  nuaotr  entry  is  corract  ) 
Billat  total  C  T,  A  1  :  =  Billot  node  t  T.  A,  1  1  ♦ 

'  Billat  nod*  [  T,  A,  2  1  ♦  Billat  nod*  [  T,  A,  3  J  + 
Billat'noda  [  T,  A,  4  1  ♦  Billat'noda  t  I,  A,  5  1  ♦ 
Billat" noda  I  T,  A,  6  1  ♦  Billat'noda  t  T,  A,  7  ]  ♦ 
'  Billat'noda  t  T,  A,  8  1  ♦  Billat'noda  I  T.  A,  9  1  ♦ 
Billat'noda  t  T,  A,  10  )  +  Billat  noda  i  T,  A,  11  1 
Billat'noda  i  T,  A,  12  1  ♦  Billat'noda  [  T,  A,  13  1  ♦ 
Billat'noda  C  T,  A,  14  1  +  Billat'noda  C  T,  A,  15  1  + 
Billat>oda  (  T,  A,  16  1; 

CI  ear  screen: 

8otoRC  (3.  I); 

URITRN  <sTh*  old  lov  liiit  for  ',  Tour  t  T  1.  Activity  I  A  I, 
'  is  '.  Lolinit  (  T,  A  Ii8t0f'  officers.')! 

URITELN* 

IRITELl'c  Thar*  art  currently  '.  Billat  total  [  T,  A  1:8:0, 

'       assigned.'); 

Nav  Unit  [  T  ,  A  )  :=  Lolinit  I  ?,  A  1; 

URITELN: 

WRITE  ('      How    uny  officars  do  you  want  as  th*  lov  Unit  now?    '); 

{$1-}    READLN  (  Nav  Li tit  (  T,  A  1)    {$[+>:  (read  nav  length  miliar) 

Ok.ansvar  :=  (I0RES0LT  «  0);    {  TURBO  PASCAL  I/O  arror  chock.    If  input  ) 

{  vas  in  fact  corract  i.a.  an  integer  than  ) 
{  th*  TB  function  I0RESULT  vill  return  a  0  ) 

IF  NOT  Ok.ansvar  THEN  Wrong.ansvorj 

UNTIL  0k_ansvar  s  true; 

OotoRC  (10,1)) 

WHELM  (>       Th*  nav  »,Tour  IT],  Activity  [Al. 

'  lov  Unit  is  '.  Nav  Unit  (  T,  A  1:8:0,'     officars.')] 
Lolinit  [  T,  A  li«    Nav  liiit  [  T,  A  1; 
Another .change; 

IF  Ansvar  in  ['N','n')  THEN  Finishad.lov  :-  true; 

UNTIL  Finished. lov  ■  true; 

END;     { Change. loli ait) 

[ttmttmitmtmmtmtmmttxtttmutttttttmtMnuttttmttttttt 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx) 

(.pa) 

PROCEDURE  Change.ac cessions; 

(  This  procedure  provides  the  display  and  nechanics  for 
taking  changes  to  the  accessions  ) 

VAR 

Finished.acc:  BOOLEAN; 

BE6IN 

REPEAT 
Clearscreen; 
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8ot©RC  (12,  1)| 

VRITEUI  ('        Currently  the  nunber  of  accMiiont  each  quarter  it')t 

WITELHi 

NRITELN  (»  \  ROUND (Ac cessions), 

'    offic»rs.')j 

REPEAT 

SotoRC  (16,  1): 

KITE  ('  The  nw  nuaber  of  accessions  each  quarter  is:         ' ); 

SotoftC  (17,  1); 

WRITE  V  Press  <CR>  for  no  change. •)> 

SotoRC  (16.  S3) | 

(11-)    READ  (  Accessions)    {*I+)t  (read  new  length  nueber) 

Ok  answer  i«  ( I0RESULT  =  0);    {  TURBO  PASCAL  I/O  error  check.    If  input  ) 

{  vas  in  fact  correct  i.e.  an  integer  then  } 
(  the  TB  function  IQRESULT  will  return  a  0  ) 

IF  NOT  Ok. answer  THEN  Urong  .answer; 

UNTIL  Ot.ansver  =  true; 

IF  Ok  .answer  THEN  Finished .acci»  true; 

SotoRC  (16.  53) i 

WRITE  (ROUND(Accesslons),'      officers.'): 

Delay  (1500); 

UNTIL  Finished .ace  *  true) 

END;    (  change  accessions) 
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APPENDIX  J 


THE  F0LL0WIN6  PROCEDURES  ARE  CONTAINED  IN  THE  DISK  FILE  'SCREENS. PAS' 

[tmmmtttmtmmmtmmtmtmmmmtttmtmmttmtmmt 
tmmtmmmmmtmmmmmmmttmmmtmmtmmmmt) 

{  This  file  contains  the  following  procedures 

Dchoices 
Dchanges 
Froa_pathscrn 
To  pathscrn 
} 


PROCEDURE  Dchoices; 

This  procedure  p 

for  the  choices  indicated  ) 


{  This  procedure  provides  the  display  screen  and  answer  evaluation 


VAR 

Ok  range, 
Olftour, 
Ok'activity:  Boolean; 

BE6IN 

Ok_tour  :=  false; 
Ok'activity  :=  false; 
GoFoRC  (1,  I): 
WRITELN  ('   ».Chg  var); 
WRITELNjHRITELNj  " 


WRITELN 

WRITELN, 

WRITELN 

MRITELN 

HRITELN 

WRITELN 

WRITELN 

WRITELN 

WRITELN 

WRITELN 

WRITELN 

WRITELN 

WRITELN 

WRITELN 

6otoRC  (22,5): 

WRITELN  (* 


TOUR 

1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 
10. 
11. 
12. 


FIRST 

SECOND 

THIRD 

FOURTH 

FIFTH 

SIXTH 

SEVENTH 

EIGHTH 

NINTH'); 

TENTH'); 

ELEVENTH'); 

TWELFTH'); 


ACTIVITY'); 

A.  PROFESSIONAL  TRN6 

B.  PROFESSIONAL  EDUC 

C.  WASHINGTON  DC 

D.  SHORE  CONUS 

E.  FLEET  UNIT 

F.  AFLOAT  STAFF 

G.  SHORE  OUTUS 
H.  SEPARATION 


TOUR:   (type  nuaber<CR»  ACTIVITY:   (type  letter)'); 


REPEAT  £  Until  Ok.tour  true  ) 

REPEAT  {  Until  Ok_activity  true  } 

IF  NOT  Ok  tour  OR  NOT  Ok  range  THEN 
BEGIN   ' 


GotoRC  (22,  14); 
{$!-}  READ  (  T  5  {$!♦} 


Ok  tour 


:iORESULT 


:  (read  TOUR  number  but  first  cancel  I/O  } 
{  checking  to  prevent  error  if  non  integer  } 
{  key  is  struck  accidentally.  Then  turn  back  on  } 
0);  (  TURBO  PASCAL  I/O  error  check.  If  input  } 
{  was  in  fact  correct  i.e.  an  integer  then  ) 
{  the  TB  function  IORESULT  will  return  a  0  } 
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IF  (T  >=  1)  AND  (T  <=  12)  THEN  Ok  range  :=  true; 
IF  (T  <  t)  OR  (T  >  12)  THEN  Ok  range  :=  false; 
IF  NOT  Ok.tour  OR  NOT  Qk.range'THEN  Wrong.answer; 

ENO;  {  Ok.tour  correct  if  } 

UNTIL  (Ok.tour  AND  Ok.range)  ■  true; 

IF  NOT  Ok  activity  THEN 

BEGIN   " 

GotoRC  (22,  46); 

READ  (kbd.  A  );  (read  ASSIGNMENT  letter) 

A  •=  UPCASE  (  A  )' 

First  :=  'A';  Last  :=  'H'j  Ok.choice  :=  true; 

Correct.choice  (  A,  First,  Lalt,  Ok_choice); 


Ok  activity 


Ok  choice: 


uy  :=  . 
EN&;   {  it  not  ok"  activity  ) 

UNTIL  (Ok.tour  and  Ok.activity  )  =  true; 

Clearscreen; 

END;  (choices) 

(tmmmitttmttttmttutmttttttutmmmtmttmmttttmmttti 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxt) 

{.pa) 

PROCEDURE  Dchanges; 

{  This  procedure  provides  the  choice  ienu  display  and 
also  evaluates  the  responses  ) 

BEGIN 

IF  NOT  (POS  C.'.Nodedata)  =  0)  THEN  Strip  (Nodedata); 

IF  NOT  (POS  ('.', Arcdata)  =  0)  THEN  Strip  (Arcdata); 

IF  NOT  (POS  ('.'.Lengdata)  =  0)  THEN  Strip  (Lengdata); 

IF  NOT  (POS  ('.', Hilidata)  =  0)  THEN  Strip  (Hilidata); 

IF  NOT  (POS  ('.», Lolidata)  =  0)  THEN  Strip  (Lolidata); 

Clearscreen; 
GotoRC  (3.  5); 
HRITELN  (Chg  var); 
WRITELN; 
HRITELN  (» 
HRITELN; 
GotoRC  (8 


Data: 


Data  files:'); 


HRITELN 
HRITELN 
HRITELN 
HRITELN 
HRITELN 
HRITELN 


1): 


0.  ',Choice  zero); 

1.  Nunber  oT  officers  at  each  assignment: 

2.  Transfer  path  percentages: 

3.  Assignment  tour  lengths: 

4.  High  liiits: 

5.  Low  Units: 


HRITELN; HRITELN; 


Nodedata  ); 
Arcdata  ); 
Lengdata); 
Hilidata  5; 
Lolidata  ): 


REPEAT  (until  choice  correct  ) 

GotoRC  (16.1); 

HRITE  ('   Type  your  selection  (0,1,2,3,4,5):  '); 

READ  (Kbd.  Choice):  (read  input  into  ^ir   selection) 

First  :=  '0';  Last  :=  '5';  Ok.choice  :=  true;  (inputs  for  correct_choice  ) 

Correct  Choice  (Choice,  First, "Last,  Ok  choice);    (      procedure. 

UNTIL  Ok"_choice  =  true; 

END;  (Dchanges) 
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{mtmtmmmmmmtmmtmmtmttummnttmmtttttmmt 

tttttttmttmnmtnmttmtmmtmmttmmttmmtttmmtnmt) 

{.pa} 

PROCEDURE  Froi.pathscrn; 

{  This  procedure  siiply  draws  the  illustration  on  the  screen  } 

BEGIN 


CI  ear  screen; 

HRITELHC 

URITELNC 

HRITELNC 
HRITELHC 
HRITELHC 
HRITELHC 
HRITELHC 
HRITELHC 
HRITELHC 
HRITELHC 
URITELNC 
URITELNC 
URITELNC 
URITELNC 
URITELNC 
URITELNC 
URITELNC 
URITELNC 
URITELNC 
URITELNC 
URITELNC 
URITELNC 

END;  {  Froi_pathscrn  } 


/— 


\- 


{tmttttmmttttttmmtmtmmtmtttttttttmtmtttmttmmttm 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx) 

{.pa) 

PROCEDURE  Tojathscrn; 

{  This  procedure  simply  draws  the  illustration  on  the  screen  ) 

BEGIN 


Clearscreen; 

HRITELN  C 

URITELH  C 

HRITELN  C 

HRITELN  C 

HRITELN  C 

HRITELN  C 

HRITELN  C 

URITELN  C 

HRITELH  C 

URITELH  C 

HRITELH  C 

URITELH  C 

HRITELN  C 

HRITELN  C 

HRITELN  C 

URITELN  C 

HRITELN  C 

HRITELN  C 

HRITELN  C 


-\ 
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APPENDIX    H 
THE  F0U0UIN8  PROCEDURES  MS  CONTAINED  IN  THE  DISK  FILE  'DISPLAYS. PAS' 

itmmmmmtmxtmwmtmmttmttmtmttmttmmtttntmu 

tmmtxttmnnttttmxttttttmmtmtnmtmntttnxuwttmnmu) 

{    This  file  contains  the  following  procedures 

Disp  assign 
Disp 'tours 
Bispjwths  frot 
Dispoatks'to 
Dispiillefs 


) 


PROCEDURE  Disp. Assign; 

(  This  procedure  provides  the  activity  v.s.  ail  tours  choicn  and  displays  ) 

VAR 

I:   INTEGER; 

BE6IN 

REPEAT     {  until  finished} 

Finished:^  false; 

CI  ear screen; 

Center  (03,  'Which  activity  art 

VR!TaN;URtTELNfVRITElJf; 


URITELN 
URITaN 


URITELN  ( 


URITELN 
URITELN 
URITAN 
URITELN 
URITaN 
URITELN; 


A. 
B. 
C. 
D. 
E. 
F. 
6. 
H. 


you  interested  in?')| 

Professional  Training'): 
Professional  Education'); 
Uashington  DC'); 
Shore  (CONUS) 
Fleet  Unit'); 
Afloat  Staff'); 
Shore  (OUTUS)'}; 
Separation'); 


'); 


REPEAT  (until  choice  correct  ) 

OotoRC  (18, IS); 

WRITE  ('Type  your  choice:  '); 

READ  (Kbd,  A);  (read  input  into  var  selection) 

A  :=  UPCASE  (A); 

First  i-  'A';  Last  :=  'H';  Ok  choice  i>  true; 

Correct  choice  (  A,  First,  Lait,  Ok  choice); 

UNTIL  Ok"  choice  ■  true  ; 

Billet  total  [  T,  A  1  :=  Billet  node  I  T,  A,  1  1  ♦ 
Billet  node  (  T,  A,  2  1  ♦"Billet  node  (  T,  A, 
Billet "node  I  T,  A,  4  1  +  Billet'node  [  T,  A, 


Clearscreen; 
URITaN; 
URITELN  (' 


Billet  node  t  T,  A,  6  1  ♦ 

Billet'node  I  T,  A,  8  1  ♦ 

Billet'node  (  T,  A,  10  1  ♦ 

Billet'node  t  T,  A,  12  1  ♦ 

Billet'node  (  T,  A,   14  1  ♦ 

Billet'node  I  T,  A,  16  1; 


3  1 

S  I 

Billet'node  [  Tj  Aj  7  1 

Billet'node  I  T,  A,  9  1 

Billet  node  (  T,  A,  11 

Billet'node  I  T,  A    13  1 

Billet'node  (  T,  A,  IS  1 


For       ',Yrcount,'    year(s)  and 


I  17 


WtlTELHf 

WHELM  (' 
OotoRC  (6. 

«nan  (» 

WRITEUh 
SotoRC  18 


»l 


10) 


OuarUr,'    quarUrd)  calculation*. '); 
Fori  ',  Activity  t  A  I); 


TOURS. 


WRITELN  cVlRSt       SECOND  THIRD       FOURTH        FIFTH 


6otoRC  (14.  9)i 

VRITELN  ('SEVENTH  EIGHTH 

T«»i: 

!i»5i 

OotoRC  (10,  I) I 

Billet  total  I  T,  A  1  i 

'  Billet  node  t  T 

Billefnode  t  T 

Biliet'node  I  T 

Biliet'node  [  T 

BilUt'nod*  [  T 

Billefnode  I  T 

BilUt'nod*  (  T 


NINTH        TENTH    ELEVENTH 


Billet  node  I  T,  A.  I  ]  ♦ 

A,  2  ]"♦  Bill »t  nod*  (  T,  A, 

A,  4  1  ♦  Billet "nod*  t  T,  A 

A,  6  1  f  Billot'nodo  t  T    A 

A,  8  1  ♦  Billot "nod*  1  T,  A. 

A,  10  1  ♦  Bill*?  nod*  I  T,  A, 

A,  12  1  ♦  BilUt'nod*  t  T,  A, 

A,  14  1  ♦  Billot 'nod*  (  T    A 


7  1 

9  1 

11 


Billot  nod*  [  T    A    16  1: 
WRITE  (ROUND  (Billot Jotai  (  T,  A  DUO); 


FOR  T  i-  2  TO  6  DO 

BE6IN 

I  :■  I  *  10; 

SotoRC  (10,  I); 

Billot  total  [  T,  i 
Billet  nod*  C  T 
BilUt'nod*  [  T 
Billot 'nod*  (  T 
Billot "node  [  T 
Billtt'nod*  (  T 
BilUt'nod*  [  T 
Billot "node  (  T 


5 

A,  8  1 


4  ]  ♦ 
6  1  ♦ 


A 

A,  14 
Billot'nodo  [  T,  A,  16 

WRITE  (R0UND"(Bill*t  total  ( 

END) 


T:=7j 
!i-Si 

Sotott 
Billet 


(16,  l)\ 
total  [  T, 


lot. nod*  ( 
let  nod*  [ 
let "node  ( 
lot "node  [ 
l*t>ode  [ 
lot. node  t 
let "nod*  ( 


]  i*  Billot  nod*  I  T,  A,  1  ]  ♦ 
A,  2  I  ♦  Billot  nod*  (  T,  A, 
A,  4  1  ♦  Billet 'nod*  t  T,  A, 
A,  6  1  ♦  BilUt'nod*  I  T    A 
A,  8  1  ♦  Billot'nodo  I  T,  A, 


WRITE 


a;  10  1  ♦  Bill*?  nod*  (  T,  a, 
A,  12  1  ♦  BilUt'nod*  I  T,  A, 
A,  14  1  ♦  BilUt'nod*  C  T    A 
Billet "node  i  T,  A,  16  3: 
(ROUND  (Billet  total  (  T,  A  ]):10); 


3  1 
5  1 
7  ] 
9  1 


FOR  T  :=  8  TO  12 

BE8IN 

X  i-  X  ♦  10; 

QotoRC  (16,  X); 

Billet  total  t  T, 

BV 

Bi 


let .node  I  T 

let .node  t  T 

lot "node  (  T 

let 'node  C  T 

lot "node  (  T 

let 'node  (  T 

let 'node  I  T 


]  :=  Billet  node  I  T,  A,  1  1 

A,  2  1  o'BilUt  node  (  T, 

4  1  ♦  Billot'nodo  I  T, 


A, 

A,  6  1  ♦  Billot  nod*  I  T,  A,  7  1 

A,  8  1  ♦  BilUt'nod*  I  T,  A.  9  1 

A,  10 

?: 


]  ♦  Bill*?  nod*  [  t,  li, 
12  1  ♦  BilUt'nod*  I  T,  A, 
14  1  ♦  BilUt'nod*  (  T,  A, 
Billet 'node  t  V,  A|  16  1; 

WRITE  (ROUND' (Billot  total  (  T,  A  1):10); 


13  1 
IS  1 


)  i*  Billet  node  I  T,  A,  1  1  ♦ 

A,  2  I  ♦"Billot  node  (  T,  A,  3  1  » 

Billet 'node  I  T,  A,  5  1  ♦ 

BilUt'nod*  {  T,  A,  7  1  ♦ 

.  BilUt'nod*  (  T,  A,  9  ]  ♦ 

10  I  ♦  Bill*?  nod*  C  T,  A,  11  1 

12  1  +  BilUt'nod*  [  T    A    13  3 

'  1  ♦  BilUt'nod*  (  T,  A,  IS  1 
1| 
T,  A  ]):10); 


11 

13  1 
IS  1 


+ 

♦ 

♦ 

11  1 

13  ) 

IS  I 


SIXTH* ); 
TWELFTH'); 
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E»; 

REPEAT  {  until  answer  correct  ) 

C«nUr  M,  'Bo  you  desire  to  see  another  activity  breakout?  (Y/N)  ♦); 

READ  (KM,  Answer); 

Ok  aiiswor  :*  true; 

Correct  answer  (Answer,  Ok  answer); 

UNTIL  Of.answer  •  true; 

IF  Answer  in  t  »Y»,»y»3  THEN 

BEGIN 

Clear screen; 

Biss  Assign; 

Ett; 

ir  Answer  in  t  'H»,»n»  1  THEN  Finished  :=  true; 

UNTIL  finished  ■  true; 

CI  ear  screen; 

ENB;  (Bisp .Assign) 

[ttmxiuttttmmutmttmtttmunmtmtttutmttxutmmtumtt 
mttttttiutttttntmuttttmtttumtttnttMxtuMmtttmxttmtMt) 

(.pa) 

PROCEDURE  Bisp.Tours; 

{  This  procedure  provides  the  tour  v.t.  all  activities  choices  and  displays  ) 

m 

Ok  range, 
Ok "tour, 
Ok'activity:  Boolean; 

BEGIN 

Ok  rang*  :*  false; 
Ok 'tour  i"  false; 
Ok'activity  :=  false; 

REPEAT  {  until  finished  ) 

CI  ear  screen; 

GotoRC  (3,  5): 

CENTER  (3. 'Which  Tour  do  you  wish  to  see  displayed?'); 

NRITaNjyRlTELN; 

HRITELN  (»  TOUR  '); 

URITELN; 

HRITELN  ('  1.  FIRST        '); 

URITaN  ('  2.  SECOND        ') 

HRITELN  ('  3.  THIRD        ') 

URITELN  ('  4.  FOURTH        ') 

HRITELN  ('  5.  FinH        ') 

URITaN  ('  6.  SIXTH        ') 

URITELN  ('  7.  SEVENTH       ') 

URITELN  C  8.  EIGHTH        ») 

HRITELN  (' 

URITaN  (' 

HRITELN  (' 

URITaN  (' 

GotoRC  (22,  5); 

URITaN  ('   TOUR: 


1. 

FIRST        ' 

2. 

SECOND        » 

3. 

THIRD        ' 

4. 

FOURTH       ' 

S. 

FIFTH        ' 

6. 

SIXTH        ' 

7. 

SEVENTH       ' 

8. 

EIGHTH        ' 

9. 

NINTH'); 

10. 

11. 

TENTH'): 
aEVENTH'); 

12. 

TUaFTH'); 

(type  nuober <«»'); 

REPEAT  {  Until  Ok  tour  and  Ok  range  both  true) 
GotoRC  (22,  14); 
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(I!-)  REM  (  T  )  (I!*)  |  (read  TOUR  nuabtr  but  firit  cancel  I/O  > 

<  chocking  to  prtVMt  error  if  ihm  integer  ) 
{  koy  it  struck  accidentally.  Then  turn  back  on  ) 
Ok  tour  i-  (I0RCSULT  «  0)j    <  TURN  PASCAL  I/O  error  chock.    If  input  > 

{  Vif  in  fact  correct  i.e.  an  integer  then  ) 
<  the  TB  function  IQRESULT  will  return  a  0  ) 

IF    (T  >«  1)  ANB  (T  <=  12)  THEN  Ok  range  :=  true; 
IF    (T  <  1)  OR  (T  >  12)  THEN  Ok  range  i»  false} 
IF  NOT  Ok.tour  OR  NOT  Ok.range  THEN  Hronf .ansver; 

UNTIL  (Ok  tour  AND  Ok  range)  ■  true) 
FOR  A  i-  'A»"T0  'H'  DO   " 
BESIN 

Billet  total  I  T,  A  1  :■  Billet  nod*  I  T.  A,  1  1  ♦ 

"    Billet  node  I  T,  A,  2  1  ♦  Billet  node  I  T,  A,  3  1  ♦ 

Billet  "node  I  T,  A,  4  1  ♦  Billefnode  I  T,  A,  5  3  ♦ 

Billefnode  (  T,  A,  6  1  ♦  Billefnode  [  T,  A,  7  1  ♦ 

Billefnode  [  T    A  8  3  ♦  Billefnode  [  T.  A,  9  J  ♦ 

Billefnode  (  T,  A,  10  1  ♦  Billet  node  t  T,  A,  11  1  ♦ 

Billefnode  (  T,  A  12  1  ♦  Billefnode  I  T,  A,  13  1  ♦ 

Billefnode  I  T    A  14  1  ♦  Billefnode  t  T,  A,  15  1  ♦ 

Billefnode  I  T,  A  16  1; 

END;  (for  loop! 


Clear  screeni 
URITELN  (' 
URITELN  ( 
VRITELN  ( 
URITELN  ( 
URITELN  ( 
URITELN  ( 
URITELN  ( 
URITELN  ( 
URITELN  ( 
URITRN  ( 
URITELN  ( 
URITaN  ( 
URITELN  ( 
URITELN  ( 
URITELN  ( 
URITELN  ( 
URITELN  ( 
URITELN  ( 
URITELN  ( 
URITELN  ( 
URITELN  ( 
Tour  sua 


'For   ',Yr count,'  year(s)  and  ', Quarter,'  quarter(s)  calculations.  '){ 
For j  ',  Tour  I  T  J); 

Nuaber  of  officers'); 


Activity! 

Professional  Training  i  ' 

Professional  Education  :  ' 


Uashington  DC 

J 

Shore  (CONUS) 

i 

Fleet  Unit 

i 

Afloat  Staff 

j 

Shore  (OUTUS) 

j 

Separation 

t 

URITELN  (< 


T  1  i«  Billet  total  [  T,  'A 

Billet' total  I  T,  »C 

Billef total  I  T,  »E 

Billef  total  t  T,  '6 

Total  officers 


ROUND  (Billet .total 
ROUND  (Billet .total 
ROUND  (Billet .total 
ROUND  (Billet .total 
ROUND  (Billet .total 
ROUND  (Billet .total 
ROUND  (Billet .total 
ROUND  (Billet  total 


1  ♦  Billet  total  (  T,  ' 

1  ♦  Billef  total  I  T,  ' 

]  ♦  Billef  total  (  T,  • 

]  ♦  Billef  total  I  T,  »H 


»A'  1 

»B»  ] 

'C»  1 

»D'  1 

'E'  1 

'F»  1 

'8»  1 

'H'  1 

1  ♦ 
1  ♦ 
1  ♦ 
]| 


jli); 
10); 

i» 

h 

li); 

li)| 

fli)j 

!ii); 


»,  ROUND  (Tour .sua  (  T  1>:10); 


REPEAT  (until  ansver  correct  ) 

Blankline  (24,1); 

WRITE  ('Do  you  desire  to  see  another  tour  breakout?  (Y/N) 

REAO  (Kbd,  Ansver); 

Ok  ansver  :=  true; 

Correct  ansver  (Ansver,  Ok  ansver); 

UNTIL  OE.ansver  ■  true; 

IF  Ansver  in  (  'Y'.'y'l  THEN 

BE6IN 

Disp  tours; 

END;" 

IF  Ansver  in  I  »N»,'n»  1  THEN  Finished  :=  true; 


120 


UNTIL  Finished  >  true; 

CI  ear  screen; 

END;  (Disp.Tours) 

[tutttuttmttmmtmuutitnttttttnummmttutxttmmttutim 
mttmnixutmttmmtmmmutmtmiitmnmmmmuitmmt) 

{.pa> 

PROCEDURE  Disp_paths_fros>; 

<    This  procedure  displays  the  transfer  path  percentages  FROM  > 

VAR 

Ok  selection, 
Ok  tow. 

Ok'activityi  BOOLEAN) 
ZZ":  CNAR; 

at  i  INTE6ER; 

mm 

Ok  tour  t=  false; 
Ok "activity  |«  false; 
Finished  :=  false; 

REPEAT  {until  finished) 

REPEAT  (  until  tour/activity  selection  ok  ) 
Deselection  i»  true; 


CI  ear  screeni 
:■  • 
>ices| 


Chovar  i"  'Which  assignment  do  you  wish  to  see  the  transfer  oaths  frot?'; 

Dchoicesj 

Clear  screen; 


IF  (T  *  12)  THEN 

BEGIN 

Ok  selection  i«  false; 

Color  (  white,  red); 

Blank  line  (24,1); 

VRITE  ('  There  are  no  transfer  oaths  frot  Twelfth  Tour  assignments.'); 

DELAY  (2000); 

Color  (  white,  blue); 

Blankliae  (24,1): 

END;  {  if  tour  12  is  chosen) 

IF  A  in  C'H'l  THEN 

BE6IN 

Ok  selection  i«  false; 

Color  (  white,  red); 

Blankline  (24,1); 

VRITE  ('  There  it*  no  transfer  paths  froa  Separation  assignments.'); 

DEUY  (2000); 

Color  (  white,  blue); 

Blankline  (24,1): 

END;  {  if  tour  12  is  chosen) 

UNTIL  Ok .selection  ■  true; 

Froa  pathscrn; 

OotoRC  (6,  5); 

URITELN  (>  Display  for  »); 

OotoRC  (7,  3) 


'?:; 


URITELN  (»  \YrCount,'    years  and'); 
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MITE  ('        ',Quarter,»  quarters'), 

Botott  (10,  5)i 

MITE  ('     FRORMf 

SotoRCdl.  2)| 

WRITE  (Tow    I  T  1, Activity  (  A  J)| 

6otoRC  (13.  6); 

WITE  (ROUND  (Billet  nodelT.A.n),'  officers')) 

WITE  ('  vill  be  transferred.1)) 

« i«  ii 

RR  ««  21 

FOR  ZZ  i«  'A'  TO  »H'  DO 

BE8IN 

SotoRC  (  R,  40) | 

WITE  ('TO  '.  Tour  C  TM  1,  Activity  (  ZZ  J>| 

SotoRC  (RR.  42); 

WITE  (".(Transfer  pathlT.A.ZZJHOOMiO.'I     or  », 

ROUND  ((Bille?  nodelU,ll)*(Transfer_pathCT,Jl,ZZ])),'  officers')) 
R  l»  R  ♦  3j 
RR  !■  RR  ♦  3| 
END) 

REPEAT  (until  answer  corrKt  ) 

BlMkline  (24,  1); 

RITE  ('Do  you  desire  to  see  another  transfer  path  breakout?  (Y/N)  ')) 

READ  (KM,  Anwar)) 

Correct  ansvar  (Answer,  Ok  answer)) 

UNTIL  Of .answer  »  true; 

Ok  tour  i"  false)       (  to  prevent  procednre  fron  ) 
Ok "activity  :=  false)(  repeating  endlessly  ) 

IF  Answer  in  I'M'.'n')  THEN  Finished!*  True) 

UNTIL  Finished  »  true) 

END)  ( Disp.paths.fr on) 

(tttnutmmtmttmnmuumttttmmtttttmtmtmmttxttmtm 
mttttmmtmmmnnmttmmttttmttmnmttnttmmnnmnt) 

(.pa) 

PROCEDURE  Olspjiaths.toi 

(  This  procedure  displays  the  transfer  path  percentages  TO  ) 

VAt 

Ok  selection, 

Ok "tour, 

Off  activity!  BOOLEAN) 

ZZ  i  CHAR) 

RR  :  INTEGER; 
Total:  REAL) 

BE6IN 

Ok  tour  :=  false; 
Ok'activity  s=  false) 
Finished  :=  false) 

REPEAT  (until  finished) 

REPEAT  (  until  ok  selection  ) 

Ok  selection  i*  true) 

CI  ear screen: 

Chg  var  !=  'Which  assignnent  do  you  wish  to  see  the  transfer  paths  to?') 
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Dchoices; 

ClMTfCrNtf 

ir  a  ■  i)  ma 

Ok  selection  i»  false; 

Color  (  white,  red); 

Blankline  (24, 1) f 

WRITE  ('  There  art  no  transfer  paths  to  First  Tour  assignments. '); 

DELAY  (2000); 

Color  (  white,  blue); 

11  mi. tint  (24,  1); 

END;  {  if  tour  12  is  chosen) 

UNTIL  Ok .selection  *  trot; 

To  pathscrn; 

80F0RC  (6,  99); 

HSITELN  (*  Display  for  '); 

SotoRC  (7,  99); 

URlTELNfYrCount,'  years  and'); 

SotoRC  (8,  99); 

UNITE  (Quarter.'  quarters'); 

SotoRC  (10,  99); 

URITELN  ('   T0(); 

SotoRC  (11,  99): 

BRITELN  (Tour  t  T  ), Activity  t  A  1); 

SotoRC  (18,49); 

HRITE  ('NOTE:  Percentages  reflect  the  Z  of); 

SotoRC  (19.  49); 

HRITE  ('officers  transferred  OUT  OF  the'); 

SotoRC  (20,  49); 

HRITE  ('indicated  TRW  assignment.'); 

R  :»  h 

RR  i«  2; 

Total  :=  0; 

FOR  22  t«  »A»  TO  '6'  00 

BE6IN 

SotoRC  (  R.  1); 

BRITELN  CfRON  ',  Tour  I  T-l  1,  Activity  C  22  I); 

SotoRC  (RR.  1); 

HRITE  (".(Transfer  Dath[T-1.22.Alll00):4i0.'Z     or  ', 

ROUND  ((Billet  node[T-l,z!,lJ)t(Transfer  pathlT-t.ZZ.Al)),'  officers': 
Total  I-  Total  ♦  ((Billet  nodelM,ZZ,im(Transfer  patnlM.ZZ.AD); 
R  ■■  R  ♦  3; 
RR  :-  RR  ♦  3; 
END; 


SotoRC  (13.  93); 
HRITE  (ROUND  (To 


(Total),  '  officers'); 

REPEAT  (until  answer  correct  ) 

Blankline  (24,1); 

HRITE  ('Do  you  desire  to  see  another  transfer  path  breakout?  (Y/N)  '); 

READ  (Kbd,  Answer); 

Correct  answer  (Answer,  0k  answer); 

UNTIL  0k"_ansver  ■  true; 

0k  tour  i«  false;       {  to  prevent  procedure  froo  ) 
0k, activity  i«  false;(  repeating  endlessly  ) 

IF  Answer  in  I'N','n']  THEN  Finished:=  True; 

UNTIL  Finished  -  true; 

END;  {  Disp.paths.to  ) 
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tstttittssmmmmtsmmt 


.................................... ................................ , 


(.pa) 

PROCEDURE  lisp.billets) 

(  This  procedure  provides  the  billet  by  tour  length  choices  and  displays  > 

Vtf 

Officer  totals!  REAL; 
I  I  INT&lEJtf 
Finishedt 
Ok  tour 
Ok>tivityi  BOOLEAN) 

K6IN 

Ok  tour  !■  false) 
Ok'activity  t=  false) 

REPEAT  {  until  finished  > 


CUarscreeni 

Cha  \rar  :=  'Which  assignnent  do  you  vish  to  see?') 

Dcnoicesi 


>ices) 
Clearscreen) 
WRlTELN)MRlTELNi 

IRiTELN  (»       After      '.  Yrcount,'  year(s)     », 
Quarter.'  ouarter(s)')) 
URITELM  ('  'Jour  IN,'  '.Activity  IAD) 

WITELM  ('  Tour  Length  of  ', 

Billet  length  lT,Alf»  quarters.' )| 
MRITEU  ('       Officers  assignedV); 
yRITELMj 
Officer. totals  i>  0) 

FOR  I  :=  1  TO  16  DO 

BEGIN 

IRITELN  ('        »,R0UND< Billet  node  I  T.  A,  I  ]>.'  ',  TLength  I  I  1){ 

Officer  totals  :»  Officer  totals  ♦  Billet  node  t  T,  A.  I  1; 

ENS)  {  3o  loop) 

INMTELN; 

VRITELN  ('  The  total  nutber  of  officers  assigned  is  ', 
ROUND  (Officer .totals))) 

REPEAT  {  until  ansver  is  correct  ) 

Blank  line  (24,1); 

WRITE  ('Do  you  desire  to  see  another  assignnent?  (Y/N)  ')) 

READ  (Kbd,  Answer); 

Correct  ansver  (Ansver,  Ok  ansver)) 

UNTIL  OE.ansver  =  true) 

IF  Ansver  in  ['N','n'3    THEN  Finished; =truej 

UNTIL  Finished  ■  true; 

Clearscreen; 

END;  {  Oi so .billet  nodes  ) 
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APPENDIX  L 


THE  FDLL0UIN8  PROCEDURES  ARE  CONTAINED  IN  THE  DISK  FILE  •DATADUHP.PAS' 

{ii»»»uttn»ttitttutiH>itn»t>i>ttttttttttttttttttttttttttttftttttttt 

inrnmimtmttuuumtutt) 


<  This  file  contains  the  following  procedures 

Node  tfOIB 

Arc  (hup 
Length  dwp 
Hilii  dune 
Loliajluap 

) 

PROCEDURE  Nod*_dwp| 

{  This  procedure  providti  tho  displays  and  nechanices  for 
dutpina  the  nuMer  of  officers  per  assigntent  data 
fro*  the  prograi  into  a  disk  file  ) 

VAt 

Okjilet  BOOLEAN) 
BE6IN 

ClMrKrHti 

Ok. file  i>  lalsej 

IF  NOT  Replace  THEN 
BEOIN 

REPEAT  (  until  output  filenaw  it  less  than  8  letters) 

OotoRC  (10.10)) 

URITELN  ('Enter  output  filename  (mum*  of  8  Utters)')} 

Color  (  red,  white); 

SotoRC  (13,  8): 

URITELN  ('  UNLESS  YOU  DESIRE  TO  OVERWRITE  PREVIOUS  DATA,  DO  NOT  USE  '); 

Oirlist) 

Color  (  white,  blue)) 

6otoRC  (20,  13)| 

READLN  (Output _nm)  j 

IF  (Length  (Output .mm)  >  8)  THEN  Uronf.ansver 

asE 

BESIN 

Ok  file  !■  true: 

ENS)  <  if  length  of  answer  over  8  letters  ) 

UNTIL  Okjile  =  true; 

Ok  file  i*  falsej 
Color  (  white,  blue)) 
END;  (  if  replace  false  > 

Blank  line  (24,  lh 

WRITE  ('  Duaping  billet  node  data  to  the  file  naned  :  ',  Output  nane); 

Ti»  1) 

Skip  :=  '  '( 

Output  jute  !■  CONCAT  (Output .MM,'. nod' )| 
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Nodtdtta  !■  Output  MM| 

Strip  (Nodtdata)| 

AS3I8I  (Data  flla,  Output  naa*)| 

REWRITE  (Data.fila)j 

FOR  T  :=  I  TO  12  DO 
KEN 

FOR  A  i-  'A'  TO  'H'  00 
K6IN 

FOR  I  !■  1  TO  16  DO 
BEOIN 

URITE  (Data  filt,  T  )\ 

WRITE  (Data'fiU  Skip)j 

KITE  (Data  Hit,  A  )\ 

WRITE  (Data  filt  Skip); 

WRITE  (Data'fiU,  L  )| 

WRITE  (Qata"fili,  Skip): 

WRITELN  (Data  file,  Billet  nod*  [  T,  A  ,  L  ]:8:0)j 

ENOj  <  L  loop') 

END;  (  A  loop  } 

END;  <  T  loop  ) 

CLOSE  (Data.fiU)| 

END)   <  Nod*  duap  ) 

itmmximmtmtmmtmmtmsntnmmttttttttttnmmmtum 

utttixntttttmmmmnmmmtnmmtntmxmmmutnmmttt) 


(.pa) 

PROCEDURE  Arc.dttos 

(  Thif  procedure  provides  the  displays  and  lechanices  for 
duaplno,  the  transfer  path  percentage  data  to  a  disk  fila  ) 

VAR 

Arc  typtt  8TR  23i 
Ok.Tilei  BOOLE  AH  j 

BeatM 

Clearscreeni 
Ok.fila  :>  laUej 

IF  NOT  Raplac*  THEN 
BE8IN 

REPEAT  (  until  output  filenaa*  is  lass  than  8  letters) 

6otoRC  (10,10) | 

WRITELN  ('Enter  output  filenate  (aaxiMti  of  8  letters)1)} 

Color  (  red,  white); 

GotoRC  (13,  8): 

WRITELN  ('UNLESS  YOU  DESIRE  TO  OVERWRITE  PREVIOUS  DATA,  DO  NOT  USE 

Dirlist| 

Color  (  white,  blue): 

SotoRC  (20.  \2); 

READLN  (Output _naae)j 

IF  (Length  (Output .naaa)  >  8)  THEN  Wrona_ansver 

ELSE 
BEOIX 
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Ok  flit  !■  truot 
Off 

WTIL  Ok.fiU  »  truej 

Ok  flit  t«  false; 
Color  (  whit*,  biu*)} 
EM) 

Blanklin*  (24,  l)j 

KITE  CDuaping  transfer  pith  percentage  data  to  to*  fil*  ',  Output _naa*)j 

Skis  i*  '  '; 


Output  nao*  :=  CONCAT  (Output  naa*,'.ard')) 
lata  t*  Ou' 
ircdata): 
ASSIGN  (Data.fi  U.outputjiao*)) 


Arciata  t*  Output  naa*; 


Strip  (Arcdata 
ASSIGN  (Data  f 
REWRITE  (Data  fil*)| 


FOR  T  i«  I  TO  12  DO 
BEGIN 

FW  A  i*  'A'  TO  'H'  DO 
BC8IH 

FOR  K  i-  'A'  TO  'H'  DO 

BE8M 

WRITE  (Data  file,  T  )j 

HRITE  (Data'fll*,  Skip)) 

WRITE  (Data'fll*,  A  )) 

WRITE  (Data'fll*,  Skip)) 

WRITE  (Data'fll*,  K  )) 

KITE  (Data'fll*.  Skip)) 

UR1TELN  (Data  file, Transfer  path  [  T,  A  ,  K  hti2)| 

END)    (  K  loop  ) 

E»)  f  A  loop  J 

END)    (  T  loop  ) 

CLOSE  (Data.fil*)) 

END) 

mtmmmtmmiiUJtttnittmnnnmmmjmtt 

nxmttmntmmt) 


(.pa) 

PROCEDURE  Ltngth.duap) 

(  This  procedure  provides  the  displays  and  lechanics  for 
duaping  the  assignment  tour  length  data  froa  the  prooraa 
to  a  disk  file  > 

VAR 

Ok.fi 1*:  BOOLEAN) 

BftiX 

CI  ear  screen: 
Qk.fll*  :=  false) 

IF  NOT  Replace  THEN 
BE8IN 

REPEAT  (  until  output  filename  it  lets  than  8  letters) 
OotoRC  (10,10)) 
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WRITELN  ('Enter  output  filtntM  (UliWi  of  S  Utttri)')| 

Color  (  ret",  viiU)| 

totoRC  (13,  8)1 

■tlTELN  (>  UNLESS  YOU  DESIRE  TO  OVERWITE  PREVIOUS  DATA,  DO  NOT  USE  »); 

Dirliftj 

Color  (  white,  blue): 

SotoRC  (20.  13); 

REAMJ  (Output _m*»)  | 

If  (Length  (Output  jute)  >  8)  THEN  Uronf.utvor 

ELSE 

Kan 

Ok  fit*  t*  true; 
ENf| 

UNTIL  Ok.filt  ■  trot) 

Ok  flit  I"  filfti 
Color  (  white,  blue)} 
END; 

Blank line  (24,  l)t 

WRITE  CDuapino,  billet  length*  data  to  the  filt  Mttd  I  \  Output  mm); 

Tt»  1; 

Skip  :=  '  »{ 

Output  mm  :=  CONCAT  (Output.nut,'.lM,')| 

LenijdaFa  >•  Output  nut; 

Strip  (Lengdata); 

ASSI8JI  (Data  filt,  Output  natt); 

REWRITE  (Dati.filt); 

FOR  T  «»  1  TO  12  DO 
•£•11 

FOR  A  t-  'A'  TO  »H'  DO 

BC6IN 

URITE  (Data  filt,  T  ); 

WRITE  (Data'fllt  Skip); 

WRITE  (Data'fllt,  A  ); 

URITE  (Data'fllt,  Skip); 

WRITELN  (Dafa  fiit.Billet  length  I  T,  A  1:10); 

END;  (  A  loop  )  " 

END;    {  T  loop  ) 

CLOSE  (Data.fi It); 

END|  (  length  dtnp  ) 

{xxuttxxxxxxxxxxxtxxxxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxtxxuxxzxxxxxxxxxxxxxxxxxxxxtxxxxttxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtx) 

{.pa> 

PROCEDURE  Hilia.duap; 

(  This  procedure  provides  tht  display!  and  Mchanics  for 
duaping  tht  high  liait  data  froa  the  prograa  to  a  disk  flit  ) 

VAR 

Ok.fi let  BOOLEAN; 

BEGIN 

CI ear screen: 
Ok.filt  »=  false; 
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IF  NOT  Replace  THE! 
K6IN 

REPEAT  (  until  output  fiUnaw  ii  lm  thw  B  1  titer •> 

8otoRC  (10, 10)  | 

WITELN  ('Enter  output  fiUnm  (Mxiaua  of  8  letters)' )} 

Color  (  red,  whit*)} 

SotoRC  (13,  B)t 

ttlTEU  ('UNLESS  YOU  DESIRE  TO  OVERWRITE  PREVIOUS  DATA,  DO  NOT  USE  ')} 

Dirlist; 

Color  (  unit*,  blue); 

SotoRC  (20.  13)} 

READLN  (Output  _naM)| 

IF  (Ltnath  (Output .mm)  >  8)  THEN  WroM,_ansuer 

ELSE 

REBII 

6k  (iU  i*  true; 

END; 

UNTIL  Ok.file  «  trut; 

Ok  flit  I"  falsti 
Color  (  white,  blue)} 

END}  (  if  Mt  replace  ) 

BlaakliM  (24,  1); 

UMTE  CDunpina  hiqh  liiit  data  to  the  file  naaed  :  ',  Output  mm); 

Output  mm  !■  CONCAT  (Output .mm,'. bid' )| 

Hih data  :=  Output  mm: 

Strip  (Hilidata);  " 

AS8I6N  (Dtti  ft  It,  Output  mm)| 

REWRITE  (Dat*_file)j 

FOR  T  i*  1  TO  12  DO 

BE6IN 

FOR  A  :«  'A»  TO  'H'  DO 
BE8IN 

WRITE  (Data  file,  T  ); 

URITE  (Data'file,  Skip)} 

KITE  (Data'fil*,  A  ); 

URITE  (Data'file.  Skip); 

URITELN  (Dafa  file,  HiLi.it  I  T,  A  1:10:0); 

END}  (  A  LOOP') 

END}  (  T  LOOP  > 

CLOSE  (Data.file); 

END}  (  Hili.it  duap  } 

{Mttmumtmttttmtttttmmumtnmixtmtxtttttmxtmtmmn 

ttnttttumttttxtmutttmtttmuttttttxtmtmtttnttmttttmttttttt) 

(.pa) 

PROCEDURE  Lolia.duap; 

{  This  procedure  provides  the  display  aad  eechanics  for 
duapino,  the  lov  Unit  data  frot  the  proaraa  to  a  disk  file  ) 

VAR 

Ok.ftlei  BOOLEAN} 
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KIM 

CturicrMif 

Ok.fiU  »«  false; 

IF  NOT  Replace  THEN 
BE6IN 

REPEAT  {  until  output  fil*M*»  it  Imi  than  8  lttteri) 

fiotott  (10,10)} 

NRITELN  ('Enter  output  filiate  (Mxitut  of  8  Utt*rs)'); 

Color  (  red,  vhii#>i 

SotoRC  (13,  B)i 

WRITELN  ('UNLESS  YOU  DESIRE  TO  OVERWRITE  PREVIOUS  DATA,  DO  NOT  D8E  ')| 

lirtift) 

Color  (  whit*.  blue); 

SotoRC  (20.  13); 

READLN  (Output .nn)  | 

IF  (Length  (Output  jum)  >  8)  THEN  Wrono.aniuer 

ELSE 
K8II 

Ok  fa  1*  :=  tru*; 
EH) 

UNTIL  Ok.file  •  true; 

Ok  file  i«  falsei 
Color  (  vhite,  blue); 
END)  <  if  not  replace  ) 

Blank lint  (24,  1); 

HtlTE  ('Dunping  lov  lint  data  to  the  file  nated  i  ',  Output  mh)i 

Output  mm  :»  CONCAT  (Output. mm,  Mod' )| 

Lohdafa  :=  Output  nhi 

Strip  (Loll data)}  " 

A8SIBN  (Data  filt,  Output  nutlt 

REWRITE  (Data.file); 

FOR  T  :=  1  TO  12  DO 
BENIN 

FOR  A  i"  'A'  TO  »H»  DO 
BENIN 

WRITE  (Data  file,  T  ); 

WRITE  (Data'file,  Skip); 

WRITE  (Data'file,  A  ); 

WRITE  (Data'file,  Skip); 

WRITELN  (Data  file,  Loll nit  I  T,  A  )i10i0)| 

END;  {  A  LOOP") 

END;    (  T  LOOP  > 

CLOSE  (Dat4.fi  W)  | 

ENS;    (  Loliuit  duip  ) 
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APPENDIX  H 

THE  F0LL0UIN6  PROCEDURES  ARE  CONTAINED  IN  THE  DISK  FILE  'ANSWERS. PAS1 

ixxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
ttmtmmtmutmttttmttmuttmttmttxmmmtmmtxmmmt) 

{    This  file  contains  the  following  procedures 

Invalid.answer 
Hrong.answtr 
Correct_choice 
Correct "answer 
Another^change 

) 

PROCEDURE  Invalid_answer; 

(  This  procedure  provides  the  warning  Message  on  the  bottoi  of  the  screen  ) 

BEGIN 

Blank  line  (24,  1): 

Color  (  white,  red); 

WRITE  ('  Invalid  answer,  try  again.'); 

DELAY  (2000); 

Color  (  white,  blue); 

Blankline  (24,  1); 

END;  {  Invalid_answer  } 

{ttmtttummmmuttmttmtttumtmtmtttttttxttuttttttttxtmt 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXtXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

{.pa} 

PROCEDURE  Wrong .answer; 

{  This  procedure  provides  the  warning  Message  at  the  bottoi  of  the  screen  ) 

BE8IN 

(take  a  red  box) 

Color  (  white,  red); 

GotoRC  (24,  15); 

URITE  ('  Your  response  is  incorrect,  please  try  again.'); 

Color  (  white,  blue); 

DELAY  (2000): 

Blankline  (24,  t); 

END;  {  Hrong_answer  ) 

{ttttttttmtutmnuumtmtmmmtuttttttttxtuttttmtmttmtm 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXtXXXXXXXXXXXXXXXXXXXXXXXXt) 

(.pa) 

PROCEDURE  Correct .answer; 

{  The  procedure  evaluates  the  yes/no  response  ) 


131 


BEGIN 
IF  Answer  in  [  'Y\»yVNVn»]  THEN  Ok  Ansvtr  I-  true 

else 

BEGIN 

Qk.Answer  :=  false; 

Hrong_answerj 

END;  "{  error  condition  if  ) 

END;  {  Correct .answer) 

{ttmutmttmummtmttmtmtmmtmtttttmmttttmmmtm 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx) 

{.pa} 

PROCEDURE  Correct .choice; 

{  This  procedure  evaluates  the  response  for  correct  choice  } 

BEGIN 

IF  Choice  in  [  First  ..  Last]  THEN  Ok  choice  :=  true 

ELSE 

BEGIN 

Ok .choice  :=  False; 

Urong  answer; 

END;  X  choice  if} 

END;  {  Correct_choice  } 

nxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

{.pa} 

PROCEDURE  Another .change; 

{  This  procedure  proipts  the  user  for  another  change  ) 

BE6IN 

REPEAT  {  Until  answer  correct  ) 

Blankline  (24,1); 

WRITE  ('  Do  you  desire  to  change  another?  (Y/N)  :  »); 

READ  (  Kbd,  Answer); 

Ok.answer  :=  true; 

Correct  answer  (  Answer.  Ok  answer); 

UNTIL  Ok"_answer  =  true; 

END;       {  Another.change  } 
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APPENDIX    N. 
THE  FOLUNIItt  PROCEDURES  ARE  CONTAINS*  IN  THE  DISK  FILE  "STOfMTA.PM* 

{ttttttttmmmmHttmmtmmmmtintmjroJtmmjttiimmn 
tmmnmmmmmtmtmmtmmmttmmmtmmmtmmtm) 

i  This  file  contains  the  following  procedures 

Save  data 
Replacejlata  ) 

PROCEDURE  Save.data; 

{  This  procedure  provides  the  display  and  aechaaics  for 
storing  data  onto  a  disk  file  } 

VAR 

Answer:  CHAR; 

Ok. answer j  Boolean) 

BE6IN 

Finished  t*  false; 

Center  (21, 'Do  you  desire  to  save  any  of  the  data  to  a  disk  file?  (Y/N)  '); 

READ  (Kbd,  Answer)) 

Ok  answer  »■  true) 

Correct. answer  (Answer, Ok .answer)) 

IF  NOT  Ok.answer  THEN  Save.data; 

IF  Answer  in  t  'Y'.'y'  I  THEN 
ROM 

CI  ear screen) 

SotoRC  (10,  1); 

URITELNj 

URITEUIC     This  procedure  provides  you  with  the  opportunity  to    '): 

VRITEU  ('     save  the  data  as  presently  configured  in  the  prograe    '); 

URITELN  ('  to  a  disk  file  naned  by  you.       '); 

Chg  var  i*  'Which  data  do  you  wish  to  save?'; 

Choice  zero  :=  'None/ finished  saving  data.'} 

GotoRC'(23,38)j 

Pause) 

REPEAT  (until  finished  ) 
CI  ear screen j 
Dchannesj 

IF  Choice  =  '0'  THEN  Finished  :=  true) 

IF  Choice  ■  '1'  THEN  Node  duap; 

IF  Choice  ■  '2'  THEN  Arc  aunp) 

IF  Choice  ■  '3'  THEN  Length  dunp; 

IF  Choice  ■  '4'  THEN  Hilia  3unp( 

IF  Choice  ■  'S'  THEN  lolinjluip; 

UNTIL  Finished  ■  true; 

Replace.data) 

END;  {  choice  Y  to  save  data  ) 

END)    <  save  data  procedure  ) 
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{uutuJtttnnuttniitnttnitntsfuuuiOT 

(.pa) 

PROCEDURE  Realace.data) 

(  This  procedure  provides  the  displays  and  iechanics  for 
replacing  data  in  tht  default  data  files  ) 

BE6II 

Clear scrotal 

Canter  (10, 'Now  that  you  hivt  saved  that  data  to  your  own  file,  do  you'); 

Center  (13  'desire  to  uie  say  of  it  to  replace  the  bass  data?  (Y/N)  ')j 

REM  (kbd,  A»sw«r); 

CI  ear  screen; 

Ok  answer  :*  true; 

Correct .answer  (Answer,  Ok  .answer)) 

IF  NOT  Ok  answer  THEN 

BE61N   " 

Replace  data; 

END)  {  flrong  choice  if  ) 

IF  Answer  in  [  'Y'.'y'l  THEH 

BEGIN 

CI oar scrotal 

Center  (6,*  You  have  chosen  to  save  the  data  as  it  is  currently  ')) 

Center  (7, 'calculated  by  the  prograa,  to  be  the  new  initialization  data.')} 

Color  (  r^   white); 

Center  ($,'  This  is  a  serious  step.'); 

Color  (  white,  blue): 

Center  (11/  You  will  be  losing  the  '); 

Center  (12  '  default  data  established  In  the  sodel.  »); 

OotoRC  (23,30); 

Pause; 

REPEAT  (until  finished  ) 
Clear tcrsoni 

Chg  var  i«  'Which  data  file  do  you  desire  to  change  PERMANENTLY?1 j 

Choice  zero  »3  'None/finished  replacing  data.') 

Bchanges) 

IF  Choice  ■  »!'  THEN  Output  naao  i>  'Nodes') 

IF  Choice  ■  '2'  THEN  Output "naae  i«  'Arcs') 

IF  Choice  =  '3'  THEN  Output' nase  :=  'Length'; 

IF  Choice  =  '4'  THEN  Outpufnaae  t  =  'Hill  sit  »j 

IF  Choice  «  '5'  THEN  Output  >ae  :=  'Loliiit'; 

IF  Choice  ■  '0'  THEN  Finished  (-  true 

ELSE 

BE6II 

REPEAT 

Clearscreen; 

Color  (  red.  white); 

SotoRC  (12.  5)s 

WRITE  ('  ARE  YOU  SURE  YOU  KANT  TO  REPLACE  THE  ',  Output  naae,'  DATA?  (Y/N)  '){ 

Color  (  white,  blue)) 

READ  (Kbd,  Answer); 

Correct  answer  (Answer,  Ok  answer)) 

UNTIL  Of .answer  =  true) 

IF  Answer  in  ['Y','y'1  THEN 

BEGIN 

Replace  :«  true) 
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ir  ckoic*  -  m»  then  •*♦  mm 

IF  Owici  ■  '2'  THEN  Arc  &•( 
V  Chok*  ■  '3'  THEN  Uwtt  duq>! 
IF  Cholct  «  '4'  THEN  Hilis  Jua*; 
IF  Choice  »  '5'  THEN  Lolit>*| 

Flniihrt  i>  blttf 

RtpUct  »«   f*lM| 

ENS)  {  if  «M*r  i«  /m  ) 
IT  tmwt  in  t'NVn'l  THEN  FinisM  i-  fali»i 
ENS]  (  IF  Cfcoic*  ■  '0'  THEN  Finithtd  i«  trv«i } 
UNTIL  Finished  -  tru*| 
EMB|  (  choict  ■  Y  If  ) 
END}  {  Rtplut  d*ti  } 
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